perl处理服务超时的几种方法

Archive for the 'Perl' Category
Perl编程之各种数据库的连接方式
Perl编程之各种数据库的连接方式

连接Mysql数据库

$dbh_mysql = DBI->connect(”DBI:mysql:database=dbname;host=localhost”, “username”, “password”, {’RaiseError’ => 1}) or print “can’t connect to database (Mysql)\n” and exit(2);
$sth_mysql = $dbh_mysql->prepare(”SELECT pager from table”) or print “can’t connect to database (Mysql)\n” and exit(2);
$sth_mysql->execute() or print “can’t connect to database (Mysql)\n” and exit(2);

连接Oracle数据库

$sql=”select OCCUR_TIME,CONTENT from table”;
$dbh = DBI->connect(”dbi:Oracle:host=$host;sid=$sid;port=$port”,$user,$passwd) or print “can’t connect to database (Oracle)\n” and exit(2);
$sth=$dbh->prepare($sql) or print “can’t connect to database (Oracle)\n” and exit(2);
$sth->execute or print “can’t connect to database (Oracle)\n” and exit(2);

copywu on 05 Feb 2009 | Perl | 评论(0)

perl处理服务超时的几种方法
原文链接：

方法1：使用$SIG{ALRM}处理服务超时
注意：该方法对使用DBI连接数据库时，可能无法正常处理连接超时的任务

##############################

script testsig.pl

#!/usr/bin/perl
$timeout = 8;  #这里设置超时时间，单位秒
$i = 1;
eval{
local $SIG{ALRM} = sub {print “Timed out.\n “; exit(1);};  #程序超时后的返回结果
alarm $timeout;
########################
#等待超时的执行程序开始
while(1){
print $i.”\n”;
sleep(1);
$i ++;
}
#等待超时的执行程序结束
########################
print “Ok\n”;
alarm 0;
}

运行该script，等待8秒后，出现如下结果：

$> testsig.pl
1
2
3
4
5
6
7
8
Timed out.
$>
##############################

方法2：使用Sys-SigAction处理服务超时，主要是可以有效处理DBI连接超时
注意：需要安装Sys-SigAction模块

模块下载地址：

##############################

use Sys::SigAction qw( set_sig_handler );

eval {
my $h = set_sig_handler( ‘ALRM’ ,sub { die “connect timeout\n” ; } ); #数据库连接超时后的返回结果
alarm(5); #设置为5秒超时
$dbh = DBI->connect(”dbi:Oracle:$dbn” … );
alarm(0);
};
alarm(0);
if ( $@ ) { die “connect failed\n” ; }  #数据库连接返回失败后的返回结果
##############################