#! / usr / local / bin /perl


open (MBESTAND, 'logs_report');


while (<mijnbestand>) (

$ 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 (MBESTAND);


ok, hier is wat ik probeer te u. Ik ben het openen van het bestand logs_report en ik ben Grepping alleen voor de lijnen die NIET hebben op OK in.

Nu, het resultaat dat ik van grep is wat ik 'm probeert te schrijven naar een bestand.

Hoe kan ik dat doen?

dus vrij veel, ik probeer te openen van een bestand, lezen de inhoud van het dossier, trek bepaalde lijnen van dat bestand, en het bepaalde lijnen print ik uit, ik wil op te schrijven naar een bestand. hoe kan ik dat doen? ook, als ik wil het bestand dat wordt geschreven om e-mail, is er een manier om dat te doen in perl?