#! / usr / local / bin /perl


open (MYFILE, 'logs_report');


while (<MYFILE>) (

$ rec \u003d $ _;
chomp ($ rec);
@ tomb \u003d split (/ /, $ rec);
print $ rec, "\ n" if ($ arr [12]! ~ / OK /);

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

print $ rec, "\ n" if ($ arr [12]! ~ / OK /);
close (MYF);



)
close (MYFILE);


Oké, mit akarok u. Én vagyok a fájl megnyitásával a logs_report és én vagyok grepping csak a sor, amelyek nem OK benne.

Nos, az eredményt kapok ettől a grep-nek az, amit én "próbálok írni egy fájlba.

How can I do that?

Olyan szép nagy, szeretnék nyitni egy fájlt, olvassa el a fájl tartalmát, húzza ki egyes sorokat a fájl, és az egyes tételek i nyomtassa ki szeretnék írni, hogy egy fájlt. hogyan tud én csinál ez? is, ha szeretnék venni-mail fájl van írva, hogy, van módja, hogy a perl?