#! / 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, aqui está o que eu estou tentando u. Estou abrindo o arquivo logs_report e estou grepping apenas para as linhas que não tem OK nele.

Agora, o resultado que eu recebo do grep é o que eu estou tentando gravar em um arquivo.

Como posso fazer isso?

tão bonita muito, estou tentando abrir um arquivo, ler o conteúdo do arquivo, extrair algumas linhas do arquivo, bem como a determinadas linhas i imprimir, eu quero escrever para um ficheiro. Como posso fazer isso? também, se eu quiser enviar o arquivo que está escrito para fora, há uma maneira de fazer isso em perl?