tools/gatherViewerWarnings.pl

   1 while (<>)
   2 {
   3         chomp;
   4         s/\d+\s+\d+\.\d+\s+\[\d+\]\s+//;
   5         s/\s+$//;
   6
   7         $file = $_ if ($opening);
   8         $opening = /^opening/;
   9
  10         if (defined($file) && /WARNING/)
  11         {
  12                 print $file, "\n" if ($printed ne $file);
  13                 $printed = $file;
  14                 print "\t", $_, "\n"
  15         }
  16 }