equal
deleted
inserted
replaced
46 } |
46 } |
47 |
47 |
48 sub main() |
48 sub main() |
49 { |
49 { |
50 my $path = shift @ARGV; |
50 my $path = shift @ARGV; |
51 my @files = glob($path."/*whatlog*WHAT_*compile.log"); |
51 # my @files = glob($path."/*whatlog*WHAT_*compile.log"); |
|
52 my @files = glob($path."/*whatlog*_*compile.log"); |
52 foreach my $filename (@files) |
53 foreach my $filename (@files) |
53 { |
54 { |
54 # print $filename."\n"; |
55 # print $filename."\n"; |
55 parsefile($filename); |
56 parsefile($filename); |
56 } |
57 } |
68 |
69 |
69 my $linecount = 0; |
70 my $linecount = 0; |
70 while(my $line = <FILE>) |
71 while(my $line = <FILE>) |
71 { |
72 { |
72 ++$linecount; |
73 ++$linecount; |
73 if($line =~ m/^<whatlog bldinf='(\S+)' mmp='(\S*)' config='\S*'>/) #brittle |
74 if($line =~ m/^<whatlog bldinf='(\S+)' mmp='(\S*)' config='\S+'>/) #brittle |
74 { |
75 { |
75 $bldinf = $1; |
76 $bldinf = $1; |
76 $makefile = $2; |
77 $makefile = $2; |
77 } |
78 } |
78 elsif($line =~ m/^<\/whatlog>/) |
79 elsif($line =~ m/^<\/whatlog>/) |