fix for parse, and a start at db import. Using CVS as scp :)

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@21591 91177308-0d34-0410-b5e6-96231b3b80d8

diff --git a/utils/importNLT.pl b/utils/importNLT.pl
new file mode 100644 (file)
index 0000000..a46123b
--- /dev/null
+++ b/utils/importNLT.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+#take the output of parseNLT.pl and load it into a database
+
+use DBI;
+
+# database information
+$db="llvmalpha";
+$host="narya.lenharth.org";
+$userid="llvmdbuser";
+$passwd=""; #removed for obvious reasons
+$connectionInfo="dbi:mysql:$db;$host";
+
+# make connection to database
+$dbh = DBI->connect($connectionInfo,$userid,$passwd) or die DBI->errstr;
+
+while($d = <>)
+{
+    if (18 == split / /, $d)
+    {
+       ($day, $mon, $year, $prog, $gccas, $bc, $llc-compile, $llc-beta-compile, $jit-compile,
+        $mc, $gcc, $cbe, $llc, $llc-beta, $jit, $foo1, $foo2, $foo3) = split / /, $d;
+       print ".";
+    }
+}
+# disconnect from database
+$dbh->disconnect

diff --git a/utils/parseNLT.pl b/utils/parseNLT.pl
index 3a2e82e1e02cae8bc22d78541385c815de7f63e2..95afca73a1322dfda1ce5add735784ce145028fd 100644 (file)
--- a/utils/parseNLT.pl
+++ b/utils/parseNLT.pl
@@ -15,12 +15,14 @@ while(<>)
     if (/<td>([^<]+)<\/td>/)
       {
         if ($prefix)
-          { $output .= "$1 "; }
+          { $output .= "$1 "; $count++; }
       }
     if (/<tr/)
       {
-        if ($output)
-          { print "\n$day $mon $year $prefix/$output"; $output = ""; }
+        if ($output and $count > 3)
+          { print "\n$day $mon $year $prefix/$output"; }
+       $output = "";
+       $count = 0;
       }
     if (/<h2>(Programs.+)<\/h2>/)
       {