Script um ein weiteres Suchkriterium Erweitern (Allgemeines zu Perl)

[thread]17089[/thread]

Script um ein weiteres Suchkriterium Erweitern

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

Rambo

2012-01-23 10:57

User since
2003-08-14
803 Artikel
BenutzerIn

user image

Hallo zusammen,

benötige mal wieder eure Hilfe :-)
Ich habe ein Script was schon sehr lange Funktioniert und ich jetzt um eine Suche Erweitern möchte:

Scriptsaufbau:
Das Script öffnet Zip Files in den 1-x Logfiles enthalten sind und durchsucht diese nach Bestimmten Suchkriterien die ich eingebe und schreibt diese in eine Datei.

Als Beispiel:
Suche nach der Fehlermeldung "? Format" und gebe alle 25 Zeilen die davor sind aus.
Ausgabe die in der Datei steht:

Code: (dl )

--------------------------------------------------------------------------
NPU $$LH1234
bla 
blub















         




? FORMAT

Das Script:

Code: (dl )

#****************************
# Line number call for 
# Search String
#****************************
my @suche = "";
my $pointer = '1';
#
while (defined(my $line = $fh->getline())) { 
       chomp($line);
       #
       $suche [$pointer] = $line; 
       #
       if ($line =~ /^$String/) { 
           my $Zeile = $fh->input_line_number;
           my $read = $fh->read(my $buffer, 32*1024);
           my $string_before = $pointer+1;
	   #
           if ( $string_before == '25' ) {
	        $string_before = '1';
	     }
             #
             open(LOG, ">>result_10.txt") or die $!;
             open(LOG2, ">>result_11.txt") or die $!;
	     #
             my $ii = $string_before;
             for (my $i =1; $i <= 25; $i++){
             print LOG "$suche[$ii]\n";
             $ii++;
             if ( $ii == '25' ) {
                  $ii = 0;
                }
             }
             #
             print LOG2 "\nFound Message = $String\nin ZipFile = $Zip_File\nLogfile = $fh2\n";
             close LOG;
             close LOG2
             } # if
             $pointer++;
             if ( $pointer == '25' ) {
                  $pointer = 1;
                }
            } # while
            $fh->close();
         }
        }
       }
#
#
#****************************
# End of Script
#****************************

Nun möchte ich folgendes Erreichen:
Suche nach der Fehlermeldung und gebe NUR dann die letzen 25 Zeilen aus wenn in der 2. Zeile am Anfang eine weiteres Suchkriterium vorhanden ist.
Beispiel:
Suche nach "? Format" und in Zeile 2 die Buchstabenkombination NPA

Ergebnis:

Code: (dl )

--------------------------------------------------------------------------
NPA $$LH1234
bla 
blub















         




? FORMAT

Wie baue ich in das Script eine 2. Suche ein?

Danke schon mal für eure Hilfe.

Beste Grüsse
Remo

View all threads created 2012-01-23 10:57.