PerlからPostgreSQLに非同期アクセスする方法 - iakioの日記 - postgresqlグループ を見てほぉぉと思って、IRC で話したりしながら適当に書いてみた。たぶんこんな感じ。動かしてないけど。 use DBD::Pg qw(:async); # send queries for my $dbh (@dbh_list) { $dbh->execute(...); } # and wait until all responses arrive my %pending = map { +($_->{pg_socket}, [ IO::Handle->new_from_fd($_->{pg_socket}), $_ ]) } @dbh_list; my $sel = IO::Select->new(); $sel->add($_->[0], 'r') for values