Opened by tejste at 2012-11-15 17:36
User since
2012-05-04
1056 Artikel
BenutzerIn
2012-05-04
1056 Artikel
BenutzerIn
Erstens: bitte benutze die open-Form mit 3 Argumenten und frag den Erfolg ab. Hatten wir hier gerade erst wieder in einem anderen Thread.
Des weiteren bitte warnings und strict benutzen.
Das hier: my $seek=~m/UserName(.+)/; sucht in $seek, das undef ist! Du hast aber die Datei nach @vektor eingelesen.
Edit: Ah, verstehe jetzt: mit dem $seek wolltest du eine Regexp in eine Variable speichern. Das geht mit qr. Siehe perldoc perlop.
Last edited: 2012-11-15 18:15:08 +0100 (CET)
Des weiteren bitte warnings und strict benutzen.
Das hier: my $seek=~m/UserName(.+)/; sucht in $seek, das undef ist! Du hast aber die Datei nach @vektor eingelesen.
Code: (dl
)
1
2
3
4
5
my $logfiles ="TraceLog_.txt";
open(my $FH, '<', $logfiles) or die $!;
while (my $line = <$FH>) {
print "Found: $1\n" if $line =~ m!<UserName>(.*)</UserName>!;
}
Edit: Ah, verstehe jetzt: mit dem $seek wolltest du eine Regexp in eine Variable speichern. Das geht mit qr. Siehe perldoc perlop.
Last edited: 2012-11-15 18:15:08 +0100 (CET)