socket编程中的超时设置示例详解之三(Perl实现)

最新推荐文章于 2023-07-15 20:13:37 发布

转载最新推荐文章于 2023-07-15 20:13:37 发布 · 497 阅读

文章标签：

#socket #编程

本文介绍了一种使用Perl语言进行socket编程的方法，特别是在连接、发送和接收操作中如何设置超时，并通过示例代码展示了如何实现最多五次重试的机制。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

转自：http://blog.chinaunix.net/uid-26000296-id-3756916.html

三、Perl语言实现的socket超时设置
Perl同样也有对connect, send/recv的不同超时设置。
下面的示例代码对这两种超时都做了设置，并每一种socket操作都做最多五次重试。

#! /usr/bin/perl
###############################################################################
# \File
# tcp_client.pl
# \Descript
# send message to server
###############################################################################
use IO::Socket;
use IO::Select;

my $ip = shift;

#hash to install IP Port
%srv_info =(
"srv_ip" => "192.168.1.73",
"srv_port"=> "8080",
);

my $srv_addr = $srv_info{"srv_ip"};
my $srv_port = $srv_info{"srv_port"};
my $sock;

foreach(0..4)
{
$sock = IO::Socket::INET->new(
PeerAddr => "$srv_addr",
PeerPort => "$srv_port",
Type => SOCK_STREAM,
Blocking => 1,
Timeout => 2,
Proto => "tcp");
if ($sock)
{
last;
}
else
{
print "Connect timeout\n";
}
}

if (!$sock)
{
print "Cann't connect to server\n";
exit;
}

my $timeout = 2;
my $sel = IO::Select->new($sock);
foreach(0..4)
{
my $fh_write = $sel->can_write($timeout);
if ($fh_write)
{
$sock->send("Hello server!\n", 0) or warn "send failed: $!, $@";
$sock->autoflush(1);
last;
}
else
{
print "Send timeout!\n";
}
}