#! / USR / местное / BIN /Perl


OPEN (MYFILE, 'logs_report');


а (<MYFILE>) (

$ REC \u003d $ _;
chomp ($ РЭЦ);
@ \u003d обр раскол (/ /, $ РЭЦ);
Версия для печати $ РЭЦ, "\ N", если ($ обр [12]! ~ / OK /);

OPEN (MYF, '> data.txt');

Версия для печати $ РЭЦ, "\ N", если ($ обр [12]! ~ / OK /);
CLOSE (MYF);



)
CLOSE (MYFILE);


Хорошо, вот то, что я пытаюсь u. Я открытии файла logs_report и я grepping только для линии, которая не имеет в нем ОК.

Теперь, в результате я получаю от этого grep является то, что я "М пытается записать в файл.

Как я могу это сделать?

так очень много, я пытаюсь открыть файл, прочитать содержимое файла, вытащить определенные строки из этого файла, а в некоторых линиях я напечатать, я хочу записать его в файл. Как я могу это сделать? Кроме того, если я хочу по почте файл, который написан с, есть ли способ сделать это в Perl?