Opened by Gast at 2008-11-05 12:55
Hi zusammen,
bin noch Perl-Anfänger.
Würde gerne eine Ausgabe zeilenweise einlesen und mit Pattern vergleichen.
Jetzt kommt immer die Fehlermeldung:
Use of uninitialized value in pattern match (m//) at line 67, <NAVI> line 1.
In Line 67 steht 'if ($1 =~ m/Present/) {'
Aber ich muss doch die Variable $1 nicht bzw. kann ich nicht initialisieren.
Kann ir da jemand weiterhelfen, danke
bin noch Perl-Anfänger.
Würde gerne eine Ausgabe zeilenweise einlesen und mit Pattern vergleichen.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
open (NAVI ,"$Ausgabe");
my $sp_line = 0;
while (<NAVI>){
if ($_ =~ m/^DPE|^SPE/ ) {
$sp_line=1;
}
if ($sp_line == 1) {
if($_ =~ m/^SP/ ) {
if ($1 =~ m/Present/) {
print "Treffer";
exit (0)
} else {
print "kein Treffer \n";
exit (1)
}
}
}
Jetzt kommt immer die Fehlermeldung:
Use of uninitialized value in pattern match (m//) at line 67, <NAVI> line 1.
In Line 67 steht 'if ($1 =~ m/Present/) {'
Aber ich muss doch die Variable $1 nicht bzw. kann ich nicht initialisieren.
Kann ir da jemand weiterhelfen, danke