Thread Zeichenkette in Datei suchen (2 answers)
Opened by dschingis at 2007-10-15 16:19

dschingis
 2007-10-15 16:22
#100850 #100850
User since
2007-10-15
5 Artikel
BenutzerIn
[default_avatar]
OK, wenn man lange genug testet klappt es.

Hier mein Ergebniss ... es funktioniert soweit recht gut:

Code (perl): (dl )
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";


Falls jedoch noch jemand gute Tipps hat was ich verbessern könnte oder wo man nachbessern könnte ... ich bin für gute Tipps immer offen.

Gruss
Dschingis

View full thread Zeichenkette in Datei suchen