perl DBI 超时控制

最新推荐文章于 2024-04-25 09:43:05 发布

scan724

最新推荐文章于 2024-04-25 09:43:05 发布

阅读量454

点赞数

分类专栏： Perl DBI

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/88049043

版权

Perl DBI 专栏收录该内容

54 篇文章 31 订阅 ¥39.90 ¥99.00

订阅专栏

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

摘要由CSDN通过智能技术生成

[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 );

eva

了解本专栏