perl – 如何让DBD :: Pg可靠地超时？

发布时间：2020-12-16 06:16:29 所属栏目：大数据来源：网络整理

导读：为什么在$sth-执行完成之后,此代码才执行信号处理程序？更重要的是,我该如何解决？ #!/usr/bin/perluse strict;use warnings;use DBI;use Sys::SigAction qw( set_sig_handler );my $dbh = DBI-connect('dbi:Pg:dbname=dc');eval { my $h = set_sig_handler(

为什么在$sth->执行完成之后,此代码才执行信号处理程序？更重要的是,我该如何解决？

#!/usr/bin/perl

use strict;
use warnings;

use DBI;
use Sys::SigAction qw( set_sig_handler );

my $dbh = DBI->connect('dbi:Pg:dbname=dc');

eval {
    my $h = set_sig_handler('ALRM',sub { die "timeoutn" });
    eval {
        alarm 1;
        my $sth = $dbh->prepare("SELECT pg_sleep(10)");
        print "Before executen";
        $sth->execute;
        print "After executen";
        $sth->finish;
    };
    alarm 0;
    die "$@" if $@;
};
die "$@" if $@;
print "Finishedn";

解决方法

请考虑使用Pg的 asynchronous query功能.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!