1 files changed, 32 insertions, 0 deletions
diff --git a/utils/parseNLT.pl b/utils/parseNLT.pl
new file mode 100644
index 0000000..3a2e82e
--- /dev/null
+++ b/utils/parseNLT.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+# a first attempt to parse the nightly tester pages into something
+# one can reason about, namely import into a database
+# USE: perl parseNLT.pl <2005-03-31.html
+# for example
+
+while(<>)
+  {
+    if (/LLVM Test Results for (\w+) (\d+), (\d+)</)
+      {
+        $mon = $1;
+        $day = $2;
+        $year = $3;
+      }
+    if (/<td>([^<]+)<\/td>/)
+      {
+        if ($prefix)
+          { $output .= "$1 "; }
+      }
+    if (/<tr/)
+      {
+        if ($output)
+          { print "\n$day $mon $year $prefix/$output"; $output = ""; }
+      }
+    if (/<h2>(Programs.+)<\/h2>/)
+      {
+        $prefix = $1;
+      }
+  }
+
+if ($output)
+  { print "\n$day $mon $year $prefix/$output"; $output = ""; }