結構いいかも。
にしきのあきらも乗ってるみたい。ハマショーにでてた。しょっく
#!/usr/bin/perl
use DBI;
$|=1;
print "Content-type: text/plain\n\n";
my $start = time();
{
my $dbh = DBI->connect("dbi:Pg:dbname=test","","");
my $sth = $dbh->prepare(qq{ DELETE from test });
$sth->execute();
$sth->finish();
$dbh->disconnect();
}
{
for($i=0;$i<1000;$i++){
my $dbh = DBI->connect("dbi:Pg:dbname=test","","");
my $sth = $dbh->prepare(qq{ INSERT INTO test values (?) });
$sth->execute($i);
$sth->finish();
$dbh->disconnect();
}
}
my $end = time();
my $execTime = $end - $start;
print "took ".$execTime." sec. Done.\n";
じゃ、トランクにビキニほさなきゃ