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

概述为什么在$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 $ 为什么在$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('ALRM',sub { dIE "timeout\n" });    eval {        alarm 1;        my $sth = $dbh->prepare("SELECT pg_sleep(10)");        print "Before execute\n";        $sth->execute;        print "After execute\n";        $sth->finish;    };    alarm 0;    dIE "$@" if $@;};dIE "$@" if $@;print "Finished\n";

解决方法 请考虑使用Pg的 asynchronous query功能. 总结

以上是内存溢出为你收集整理的perl – 如何让DBD :: Pg可靠地超时？全部内容，希望文章能够帮你解决perl – 如何让DBD :: Pg可靠地超时？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。