关于在socket连接中返回错误码

david0

UID: 39474
帖子: 163
积分: 374
在线时间: 1 天 12 小时

1^# david0 发表于 2007-12-26 11:31

关于在socket连接中返回错误码

我想在在socket连接中返回错误码，如无法连接远端主机或者超时，能print出错误的消息，如何实现？

$remote_port = "6006";
$socket = IO::Socket::INET->new(PeerAddr => $dest,
                              PeerPort => $remote_port,
                              Proto=> "tcp",
                              Type=> SOCK_STREAM)
  or die "Open socket fail \n";

Nosferatu

UID: 5185
帖子: 94
积分: 216
在线时间: 12 小时

2^# Nosferatu 发表于 2007-12-26 11:38

eval { #your code here };
warn $@ if $@;

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

3^# flw 发表于 2007-12-26 11:42

二楼是错的。eval 尽量少用。

or die "Open socket fail \n";
改成
or die "Open socket fail: $!\n";

就好了。

Nosferatu

UID: 5185
帖子: 94
积分: 216
在线时间: 12 小时

4^# Nosferatu 发表于 2007-12-26 16:16

eval确实应该尽量避免，我有点误人子弟了
刚才查了下文档，直接
or die "Open socket fail : $@\n";
就可以了