utils/importNLT.pl

   1 #!/usr/bin/perl
   2 #take the output of parseNLT.pl and load it into a database
   3
   4 use DBI;
   5
   6 # database information
   7 $db="llvmalpha";
   8 $host="narya.lenharth.org";
   9 $userid="llvmdbuser";
  10 $passwd=""; #removed for obvious reasons
  11 $connectionInfo="dbi:mysql:$db;$host";
  12
  13 # make connection to database
  14 $dbh = DBI->connect($connectionInfo,$userid,$passwd) or die DBI->errstr;
  15
  16 while($d = <>)
  17 {
  18     if (18 == split / /, $d)
  19     {
  20         ($day, $mon, $year, $prog, $gccas, $bc, $llc-compile, $llc-beta-compile, $jit-compile,
  21          $mc, $gcc, $cbe, $llc, $llc-beta, $jit, $foo1, $foo2, $foo3) = split / /, $d;
  22         print ".";
  23     }
  24 }
  25 # disconnect from database
  26 $dbh->disconnect