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

转自：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";
  }
}

foreach(0..4)

{

  my $fh_read = $sel->can_read($timeout);

  if ($fh_read)

  {

    my $rcv = <$sock>;

    print "RCV : ",$rcv, "n";

    last;

  }

  else

  {

    print "Recv timeoutn";

  }

}

$sock->close();
exit;

用九，见群龙无首，吉。

【白话】用九，出现群龙也不愿意为首的现象，是很吉利的。

 

《象》曰：“用九”，天德不可为首也。

【白话】《象辞》说：“用九”的爻象说明，天虽生万物，但却不居首、不居功。