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
9
if (/LLVM Test Results for (\w+) (\d+), (\d+)</)
15
if (/<td>([^<]+)<\/td>/)
18
{ $output .= "$1 "; $count++; }
22
if ($output and $count > 3)
23
{ print "\n$day $mon $year $prefix/$output"; }
27
if (/<h2>(Programs.+)<\/h2>/)
34
{ print "\n$day $mon $year $prefix/$output"; $output = ""; }