#! / usr / local / bin /perl


open (myfile, 'logs_report');


while (<MYFILE>) (

$ REC \u003d $ _;
chomp ($ rec);
@ arr \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, her er det jeg prøver å u. Jeg er åpne filen logs_report og jeg grepping bare for linjer som ikke har OK i den.

Nå resultatet jeg får fra det grep er det jeg "prøver å skrive til en fil.

Hvordan kan jeg gjøre det?

så ganske mye, jeg prøver å åpne en fil, lese innholdet i filen, trekke ut enkelte linjer fra denne filen, og den enkelte linjene i skrive ut, jeg vil gjerne skrive den til en fil. Hvordan kan jeg gjøre det? også, hvis jeg vil Post filen som er skrevet ut til, er det en måte å gjøre det på perl?