Chinaunix首页 | 论坛 | 博客
  • 博客访问: 7894049
  • 博文数量: 701
  • 博客积分: 2150
  • 博客等级: 上尉
  • 技术积分: 13233
  • 用 户 组: 普通用户
  • 注册时间: 2011-06-29 16:28
个人简介

天行健,君子以自强不息!

文章分类

全部博文(701)

文章存档

2019年(2)

2018年(12)

2017年(76)

2016年(120)

2015年(178)

2014年(129)

2013年(123)

2012年(61)

分类: 架构设计与优化

2013-06-04 23:13:06

三、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";
  }
}

  1. foreach(0..4)
  2. {
  3.   my $fh_read = $sel->can_read($timeout);
  4.   if ($fh_read)
  5.   {
  6.     my $rcv = <$sock>;
  7.     print "RCV : ",$rcv, "n";
  8.     last;
  9.   }
  10.   else
  11.   {
  12.     print "Recv timeoutn";
  13.   }
  14. }

$sock->close();
exit;

用九,见群龙无首,吉。

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

 

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

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




阅读(5871) | 评论(2) | 转发(3) |
给主人留下些什么吧!~~