17 lines
250 B
Perl
17 lines
250 B
Perl
while (<>)
|
|
{
|
|
chomp;
|
|
s/\d+\s+\d+\.\d+\s+\[\d+\]\s+//;
|
|
s/\s+$//;
|
|
|
|
$file = $_ if ($opening);
|
|
$opening = /^opening/;
|
|
|
|
if (defined($file) && /WARNING/)
|
|
{
|
|
print $file, "\n" if ($printed ne $file);
|
|
$printed = $file;
|
|
print "\t", $_, "\n"
|
|
}
|
|
}
|