100% Hardcore!(2002-05-10)

#!/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";

本日のツッコミ(全1件) [ツッコミを入れる]

_ ながしま (2002-05-11 05:21)

じゃ、トランクにビキニほさなきゃ

ツッコミ・コメントがあればどうぞ! E-mailアドレスは公開されません。