Home | History | Annotate | Download | only in utils 
      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 = ""; }
     35