diff options
| author | Andrew Lenharth <andrewl@lenharth.org> | 2005-04-27 14:57:26 +0000 |
|---|---|---|
| committer | Andrew Lenharth <andrewl@lenharth.org> | 2005-04-27 14:57:26 +0000 |
| commit | 6e92729e988e5528ee8cd0c034561054d75dc8ff (patch) | |
| tree | 1ca78840336fdb3e9b6df551b2eb8fd1e195e18e | |
| parent | 85d5f6067dda05abd079f97fe2c8585128ba7f00 (diff) | |
| download | external_llvm-6e92729e988e5528ee8cd0c034561054d75dc8ff.zip external_llvm-6e92729e988e5528ee8cd0c034561054d75dc8ff.tar.gz external_llvm-6e92729e988e5528ee8cd0c034561054d75dc8ff.tar.bz2 | |
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
| -rw-r--r-- | utils/importNLT.pl | 26 | ||||
| -rw-r--r-- | utils/parseNLT.pl | 8 |
2 files changed, 31 insertions, 3 deletions
diff --git a/utils/importNLT.pl b/utils/importNLT.pl new file mode 100644 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 3a2e82e..95afca7 100644 --- 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>/) { |