perl DBI 超时控制

最新推荐文章于 2025-08-03 11:18:17 发布

scan724

最新推荐文章于 2025-08-03 11:18:17 发布

阅读量527

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl DBI

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/88049043

Perl DBI 专栏收录该内容

54 篇文章 ¥39.90 ¥99.00

订阅专栏

本文详细介绍了在Perl中使用DBI模块如何进行数据库连接超时的控制，包括设置连接超时、查询超时等，以确保程序在长时间运行时的稳定性与效率。

[oracle@node01 perl]$ cat test1.pl 
use DBI;
use Encode;
use Data::Dumper;
my $dbName = 'serv';
my $dbUser = 'system';
my $dbUserPass = 'oracle';
$dbh = DBI->connect("dbi:Oracle://1.168.137.2:1521/serv", 'system', 'oracle') or die "can't connect to database ";;
[oracle@node01 perl]$ time perl test1.pl 
DBI connect('//1.168.137.2:1521/serv','system',...) failed: ORA-12170: TNS: 连接超时 (DBD ERROR: OCIServerAttach) at test1.pl line 7
can't connect to database  at test1.pl line 7.

real	1m0.132s
user	0m0.017s
sys	0m0.047s


[oracle@node01 perl]$ cat test2.pl 
use DBI;
use Encode;
use Data::Dumper;
use Sys::SigAction ;
use Sys::SigAction qw( set_sig_handler );

eval {
my $h = set_sig_handler( 'ALRM' ,sub { die "connect timeout for 10\n" ; } ); #数据库连接超时后的返回结果
alarm(10); #

了解本专栏