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";
|
|
|
|
}
|