3 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!!!" } }
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";
3 Einträge, 1 Seite |