#! / 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, hier ist es, was ich bin versucht, u. Ich bin Öffnen der Datei logs_report und ich bin Grepping nur für Linien, die nicht OK ist.

Nun, das Ergebnis, dass ich von grep ist das, was ich "m versucht zu schreiben in eine Datei.

Wie kann ich das tun?

so ziemlich viel, ich bin versucht zu öffnen, eine Datei, lesen Sie den Inhalt der Datei, ziehen Sie einige Zeilen aus der Datei, und die bestimmte Linien i ausdrucken, ich will, um sie in eine Datei. Wie kann ich das tun? auch, wenn ich per E-Mail die Datei, die geschrieben werden, wird es eine Möglichkeit, dies zu tun, dass in perl?

schreiben Sie es auf die Datei und nicht auf den Stream

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

#!/usr/local/bin/perl

open (MYFILE, 'logs_report');
open (MYF, '>data.txt');

while ($rec = <MYFILE>) {
    chomp($rec);
    @arr = split(/ /,$rec);
    if ($arr[12] !~ /OK/) {
        print $rec, "\n";
        print MYF $red, "\n";
    }
}
close (MYF);
close (MYFILE);

Danke. Sorry für das Nicht-Aufnehmen der Codes. Sie würde passieren, zu wissen, wie man einen Code in ur-Code, E-Mail wird die Datei auf eine Reihe von E-Mail-Adressen? Ich meine die Datei, die geschrieben? Ihre Hilfe oder Input ist sehr geschätzt. Danke

Ähnlich wie bei meiner Antwort in dem anderen Thread, dass ich glauben, dass Sie es nicht gelesen. Geht davon aus demselben Beispiel Daten aus diesem Thread.

Dies sollte effizienter und vielleicht genauer:

#!/usr/local/bin/perl
use strict;

open (MYFILE, 'logs_report') or die "$!";
open (MYF, '>data.txt') or die "$!";

while (my $rec = <MYFILE>) {
    next if ($rec =~ /STATE: OK/) {
    print MYF $rec;
}
close (MYF);
close (MYFILE);

Ja, ich habe Ihre Nachricht in den anderen Threads. Als ich auf sie war ich nicht immer eine Antwort zurück. Ich denke, das Problem wurde in der Zeile, die ich fett.

Ich werde versuchen, dieses Skript von Ihnen sehen, und wenn dies etwas. Dank einer Million.

Es ist davon auszugehen, dass das Muster zu finden, ist genau ZUSTAND: OK, Wenn das Muster unterscheidet, müssen Sie entsprechend ändern.