database_connect_bench/dcb_perl_psql

25 lines
564 B
Plaintext
Raw Normal View History

2021-05-06 22:35:38 +02:00
#!/usr/bin/perl
2021-05-07 00:17:48 +02:00
use v5.28;
2021-05-06 22:35:38 +02:00
use warnings;
use Time::HiRes qw(clock_gettime CLOCK_MONOTONIC);
my $t0 = clock_gettime(CLOCK_MONOTONIC);
use DBI;
for my $rep (1 .. 2) {
my $t1 = clock_gettime(CLOCK_MONOTONIC);
my $dbh = DBI->connect("dbi:Pg:", "");
my $t2 = clock_gettime(CLOCK_MONOTONIC);
my $result = $dbh->selectall_arrayref("select current_timestamp");
my $t3 = clock_gettime(CLOCK_MONOTONIC);
$dbh->disconnect();
my $t4 = clock_gettime(CLOCK_MONOTONIC);
say $t2 - $t1, " connect $rep";
say $t4 - $t1, " session $rep";
}