#! / 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 hvad jeg prøver at u. Jeg er ved at åbne filen logs_report og jeg flerfilssøgning kun for linjer, der ikke har OK i det.

Nu, et resultat jeg får fra at dap er, hvad jeg "prøver at skrive til en fil.

Hvordan kan jeg gøre det?

så temmelig meget, jeg forsøger at åbne en fil, kan du læse indholdet af filen, trække nogle linjer fra denne fil, og visse strækninger, jeg printe ud, jeg vil skrive det til en fil. Hvordan kan jeg gøre det? også, hvis jeg vil sende den fil, der er skrevet ud til, er der en måde at gøre det i perl?