mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-07-21 02:29:22 +00:00
6e92729e98
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@21591 91177308-0d34-0410-b5e6-96231b3b80d8
27 lines
646 B
Perl
27 lines
646 B
Perl
#!/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
|