utils/parseNLT.pl

   1 #!/usr/bin/perl
   2 # a first attempt to parse the nightly tester pages into something
   3 # one can reason about, namely import into a database
   4 # USE: perl parseNLT.pl <2005-03-31.html
   5 # for example
   6
   7 while(<>)
   8   {
   9     if (/LLVM Test Results for (\w+) (\d+), (\d+)</)
  10       {
  11         $mon = $1;
  12         $day = $2;
  13         $year = $3;
  14       }
  15     if (/<td>([^<]+)<\/td>/)
  16       {
  17         if ($prefix)
  18           { $output .= "$1 "; $count++; }
  19       }
  20     if (/<tr/)
  21       {
  22         if ($output and $count > 3)
  23           { print "\n$day $mon $year $prefix/$output"; }
  24         $output = "";
  25         $count = 0;
  26       }
  27     if (/<h2>(Programs.+)<\/h2>/)
  28       {
  29         $prefix = $1;
  30       }
  31   }
  32
  33 if ($output)
  34   { print "\n$day $mon $year $prefix/$output"; $output = ""; }