7 Einträge, 1 Seite |
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
#!/usr/bin/perl # Suchdatei $logfile = "/root/install.log"; # Suchstrings $esx301 = "Installing VMware-esx-3.0.1-32039.i386."; $esx302 = "Installing VMware-esx-3.0.2-52542.i386."; $centOS = "centos-release - 10:5-0.0.el5.centos.2.i386 installieren"; #Suchdatei oeffnen und in Array kopieren open(HANDLE,"<$logfile") or die "Die Datei $logfile konnte nicht geoeffnet werden! Fehler: $!"; @file=<HANDLE>; close(HANDLE) or die "Die Datei $logfile konnte nicht geoeffnet werden! Fehler: $!"; #Zeilenweiser Vergleich nach Suchstring chomp(@file); foreach $line (@file) { if((chomp($line)) = $esx301) { print "ESX 3.0.1 gefunden"; } elsif((chomp($line)) = $esx302) { print "ESX 3.0.2 gefunden"; } elsif((chomp($line)) = $centOS) { print "CentOS gefunden"; } else { print "Keine gueltige OS Version gefunden!!!" } }
my $variable...
GwenDragon+2007-10-15 11:45:11--Mal ne Frage: Wieso postest du immer wieder denselben Beitrag "Zeichenkette in Datei suchen" hier neu?
Ein Versehen?
7 Einträge, 1 Seite |