Socket::错误如何捕捉?

denstv

UID: 33552
帖子: 139
积分: 319
在线时间: 1 天 2 小时

1^# denstv 发表于 2005-12-26 18:20

Socket::错误如何捕捉?

Socket::错误如何捕捉?
小弟在命令行模式下运行perl 程序连到网站读内容.在网站不通的情况下出现了错误,程序也终止了,如何才能使程序不自动退出?发现出错了转向出错处理呢?

Bad arg length for Socket::pack_sockaddr_in, length is 0, should be 4 at D:/usr/
lib/Socket.pm line 373.

cyberblue

UID: 32182
帖子: 1
积分: 2
在线时间: 10 分钟

2^# cyberblue 发表于 2005-12-26 19:32

我觉得换用IO::Socket::IN.
我觉得换用IO::Socket::INET可能会好一点

denstv

UID: 33552
帖子: 139
积分: 319
在线时间: 1 天 2 小时

3^# denstv 发表于 2005-12-26 19:44

[quote]回复给 cyberblue .
[quote]回复给 cyberblue : 我觉得换用IO::Socket::IN....[/quote]
是么?你有这方面的经验?

cyberblue

UID: 32182
帖子: 1
积分: 2
在线时间: 10 分钟

4^# cyberblue 发表于 2005-12-26 20:18

[quote]回复给 denstv : [.
[quote]回复给 denstv : [quote]回复给 cyberblue ....[/quote]

Socket.pm里面的调用错综复杂,没有十成把握最好别用,perl6老大推荐用的IO::Socket::INET

qiang

UID: 17966
帖子: 1
积分: 2
在线时间: 10 分钟

5^# qiang 发表于 2005-12-26 23:25

是否可以用 eval { # sock.
是否可以用 eval { # socket 连接 }; if ($@) { # trap socket error }

另外，有考虑使用 LWP 么？

denstv

UID: 33552
帖子: 139
积分: 319
在线时间: 1 天 2 小时

6^# denstv 发表于 2005-12-27 09:38

sub gethtml {-- $url=$.
sub gethtml {
$url=$_[0];

$ua = new LWP::UserAgent;
$request = new HTTP::Request('GET', "$url");
$response = $ua->request($request);
my $html = $response->{_content};
return $html;
}

小弟用的是这个函数,不知道怎么处理出错...

zhanying

UID: 27179
帖子: 42
积分: 96
在线时间: 2 小时

7^# zhanying 发表于 2005-12-27 12:10

那就把你需要容错的部分用.
那就把你需要容错的部分用eval{};括上吧！