perl 访问URL超时问题

kairwen

#!/usr/bin/perl

my $sendUrl='http://192.168.1.13/check.do';
my $result=get $sendUrl;

if ($result ne ""){
   print "OK";
}else {
  print "ERROR";
}


上面一段代码说是测试是否能正确访问URL,但是有一个问题,如果Web服务器没响应(端口可以Ping通),程序会一直等待.
能不能设置一个超时,如果说30秒之内没收到响应也认为是访问URL失败?

xiaoquqi

你可以用LWP去访问，可以控制超时的时间

或者用信号量 $SIG{ALRM}
eval
{
}