From 4430e3a4a87fc90473226e372cfba96119701fc5 Mon Sep 17 00:00:00 2001
From: Andrew Lenharth <andrewl@lenharth.org>
Date: Wed, 27 Apr 2005 02:13:20 +0000
Subject: [PATCH] A first step towards being able to do more interesting things
 with the nightly tester data.  Moreinteresting things will come soon, so tune
 in

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@21584 91177308-0d34-0410-b5e6-96231b3b80d8
---
 utils/parseNLT.pl | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 utils/parseNLT.pl

diff --git a/utils/parseNLT.pl b/utils/parseNLT.pl
new file mode 100644
index 00000000000..3a2e82e1e02
--- /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 = ""; }
-- 
2.34.1