#!/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=; 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!!!" } }