5 $dbase = "dbi:SQLite:dbname=example1.db";
6 $dbh = DBI->connect($dbase, "", "", { RaiseError => 1}) or die $dbh->errstr;
10 SELECT c.benchmark,sum(e.instructions),sum(e.reads),sum(e.writes),sum(e.spills),sum(e.reloads),sum(e.remats)
11 FROM ctx as c, ev as e
13 GROUP BY c.benchmark";
14 $query = $dbh->prepare($querys) or die $dbh->errstr;
15 $query->execute() or die $dbh->errstr;
16 $rows = $query->fetchall_arrayref();
22 \begin{tabular}{|l|r|r|r|r|}
24 Benchmark & Insns & Reads & Writes & Spills & Reloads & Remats
30 return sprintf("%1.1f", $val / 1000000000);
32 @col_formats = ( 'lc(@$row[0])', 'toM(@$row[1])', 'toM(@$row[2])',
33 'toM(@$row[3])','toM(@$row[4])','toM(@$row[5])','toM(@$row[6])');
34 foreach my $row (@$rows) {
36 foreach my $format (@col_formats) {
37 push(@results, eval($format.';'));
40 print("\t".join(" & ", @results) . " \\\\\n");