Thread Zeichenkette in Datei suchen
(2 answers)
Opened by dschingis at 2007-10-15 16:19
OK, wenn man lange genug testet klappt es.
Hier mein Ergebniss ... es funktioniert soweit recht gut: Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 #!/usr/bin/perl -w # Suchstrings (ESX Versionen) $esx301 = "Installing VMware-esx-3.0.1-32039.i386."; $esx302 = "Installing VMware-esx-3.0.2-52542.i386."; # Suchdatei $logfile = "/root/install.log"; #Suchdatei oeffnen und in Array kopieren open(HANDLE,"<$logfile") or die "Die Datei $logfile konnte nicht geoeffnet werden! Fehler: $!"; @file1 = <HANDLE>; close(HANDLE) or die "Die Datei $logfile konnte nicht geschlossen werden! Fehler: $!"; #Zeilenweiser Vergleich nach Suchstring chomp(@file1); foreach $line (@file1) { if($line eq $esx301) { print "ESX 3.0.1 gefunden\n"; #Patche für ESX 3.0.1 werden installiert last; } elsif($line eq $esx302) { print "ESX 3.0.2 gefunden\n"; #Patche für ESX 3.0.2 werden installiert last; } else { print "."; } } print "\n\nDie Installation ist beendet. Bitte rebooten Sie das System.\n\n"; Falls jedoch noch jemand gute Tipps hat was ich verbessern könnte oder wo man nachbessern könnte ... ich bin für gute Tipps immer offen. Gruss Dschingis |