#!/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: $!";