#! / usr / local / bin /perl


aperto (MIOFILE, 'logs_report');


while (<MYFILE>) (

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

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

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



)
close (MIOFILE);


ok, ecco quello che sto cercando di u. Sto aprendo il file logs_report and I'm grepping solo per le linee che non ha in essa OK.

Ora, il risultato da ottenere che i grep è ciò che io "m cercando di scrivere in un file.

Come posso fare questo?

in modo molto, sto cercando di aprire un file, leggere il contenuto del file, estrarre alcune linee di questo file, e la alcune linee i stampare, voglio scrivere in un file. Come posso fare questo? inoltre, se i desideri di posta il file che viene scritto a, c'è un modo per farlo in perl?