Opened by Gast at 2006-09-05 18:02
Hallo,
hier ist mein Code:
Das Programm sucht aus der Datei die Zeilen aus die so aussehen:
ERROR in freeware/lib/lib_nt.mak (lib). See /net/test.i18Global/file.err
Nun müsste doch in der Variable $2, der fettmarkierte String drin stehen. Das scheint hier aber nicht der Fall zu sein.
Stattdessen wird mir hier ein leerer String zurückgegeben.
Könnt ihr mir weiterhelfen?
hier ist mein Code:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/local/bin/perl -w
use strict;
open (FILE_MAKE_ERR, "make.err");
while(my $line = <FILE_MAKE_ERR>)
{
if($line =~ /(ERROR|error)/ && $line !~ /errors/)
{
$line =~ / (ERROR|error)\s+in\s+(\w+)\s+/;
$line = $2;
print "$line\n";
}
}
Das Programm sucht aus der Datei die Zeilen aus die so aussehen:
ERROR in freeware/lib/lib_nt.mak (lib). See /net/test.i18Global/file.err
Nun müsste doch in der Variable $2, der fettmarkierte String drin stehen. Das scheint hier aber nicht der Fall zu sein.
Stattdessen wird mir hier ein leerer String zurückgegeben.
Könnt ihr mir weiterhelfen?