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

#!/usr/bin/perl
use warnings; # 1
use strict; # 1

# Suchdatei
my $logfile = "/root/install.log";

# Suchstrings
my $esx301 = "Installing VMware-esx-3.0.1-32039.i386.";
my $esx302 = "Installing VMware-esx-3.0.2-52542.i386.";
my $centOS = "centos-release - 10:5-0.0.el5.centos.2.i386 installieren";

#Suchdatei oeffnen und in Array kopieren: 2
open( my $HANDLE, '<', $logfile)
    or die "Die Datei $logfile konnte nicht geoeffnet werden! Fehler: $!";

while( my $line = <$HANDLE> ) { # nur immer 1 Zeile im RAM lesen
    chomp $line;

    if( $line eq $esx301 ) { # 3
        print "ESX 3.0.1 gefunden\n";
    }
    elsif( $line eq $esx302 ) { # 3
        print "ESX 3.0.2 gefunden";
    }
    elsif( $line eq $centOS) { # 3
        print "CentOS gefunden";
    }
    else {
        print "Keine gueltige OS Version gefunden!!!"
    }

} # while

close $HANDLE
    or die "Die Datei $logfile konnte nicht geschlossen werden! Fehler: $!";