1 #!/usr/bin/perl
  2 use Time::HiRes qw(gettimeofday tv_interval);
  3 use List::Util qw/min max/;
  4 use DBI;
  5 my $dbh = DBI->connect("DBI:mysql:test","ghandi","") or die DBI->errstr;
  6
  7 my @sql = (
  8     "SELECT COUNT(id), ordner FROM dummy GROUP BY ordner;",
  9     "SELECT COUNT(*), ordner FROM dummy GROUP BY ordner;",
 10     "SELECT COUNT(keinIndex), ordner FROM dummy GROUP BY ordner;"
 11 );
 12
 13 foreach my $sql (@sql) {
 14     my @times;
 15     my $sth = $dbh->prepare($sql);
 16     $sth->execute; # ensure no problems with caching
 17     print "Timings for [$sql]:\n";
 18     foreach(1..20) {
 19         my $t0 = [gettimeofday];
 20         $sth->execute;
 21         my $time = tv_interval($t0)*1000;
 22         push(@times, $time);
 23         print "\t",$time,"ms\n";
 24     }
 25     my $s=0;
 26     $s+=$_ foreach@times;
 27     print "\tAvg: ", ($s/scalar(@times)), "ms\n";
 28     print "\tMin: ", min(@times), "ms\n";
 29     print "\tMax: ", max(@times), "ms\n";
 30     $sth->finish;
 31 }
 32
 33 $dbh->disconnect;

  1 use DBI;
  2
  3 my $dbh = DBI->connect("DBI:mysql:test","ghandi","") or die DBI->errstr;
  4 my @values = qw(Spiele Programme Sonstiges Pronos Schule);
  5 my $sth = $dbh->prepare("INSERT INTO dummy (keinIndex, ordner) VALUES (?, ?)") or die DBI->errstr;
  6 foreach(1..1000000) {
  7     $sth->execute($_, $values[rand $#values]) or die DBI->errstr;
  8 }
  9 $sth->finish;
 10 $dbh->disconnect;

Timings for [SELECT COUNT(id), ordner FROM dummy GROUP BY ordner;]:
	0.239ms
	0.077ms
	0.064ms
	0.064ms
	0.064ms
	0.064ms
	0.063ms
	0.065ms
	0.064ms
	0.065ms
	0.095ms
	0.066ms
	0.064ms
	0.073ms
	0.063ms
	0.064ms
	0.064ms
	0.064ms
	0.064ms
	0.118ms
	Avg: 0.0782ms
	Min: 0.063ms
	Max: 0.239ms
Timings for [SELECT COUNT(*), ordner FROM dummy GROUP BY ordner;]:
	0.072ms
	0.074ms
	0.065ms
	0.064ms
	0.064ms
	0.065ms
	0.064ms
	0.074ms
	0.065ms
	0.065ms
	0.145ms
	0.065ms
	0.065ms
	0.065ms
	0.063ms
	0.064ms
	0.064ms
	0.064ms
	0.131ms
	0.074ms
	Avg: 0.0736ms
	Min: 0.063ms
	Max: 0.145ms
Timings for [SELECT COUNT(keinIndex), ordner FROM dummy GROUP BY ordner;]:
	0.073ms
	0.067ms
	0.065ms
	0.065ms
	0.064ms
	0.064ms
	0.064ms
	0.064ms
	0.163ms
	0.096ms
	0.095ms
	0.074ms
	0.077ms
	0.072ms
	0.083ms
	0.071ms
	0.072ms
	0.072ms
	0.083ms
	0.077ms
	Avg: 0.07805ms
	Min: 0.064ms
	Max: 0.163ms

use CGI;
my $q = new CGI;

print $q->header("application/octet-stream");
# und wenn es mit Dateiname sein soll...
print $q->header(-type => "application/octet-stream", -attachment => 'dateiname.xyz');