anyevent::socket+anyevent::client 测试客户端

最新推荐文章于 2018-12-26 17:41:44 发布

laputa73

最新推荐文章于 2018-12-26 17:41:44 发布

阅读量711

点赞数

分类专栏：网络管理 perl

本文链接：https://blog.youkuaiyun.com/laputa73/article/details/9721565

版权

perl 同时被 2 个专栏收录

29 篇文章

订阅专栏

网络管理

15 篇文章

订阅专栏

本文介绍使用Perl语言结合AnyEvent模块实现TCP连接中消息的乱序发送与接收。通过加入定时器来控制消息发送间隔，实现了在两次收发过程中引入延迟。此外，还深入探讨了条件变量(cv)的使用方法。

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

这个就是加上了timer.实现了收发2次中间的延时.

同时,加强了解了cv->recv,cv->begin,$cv->end的认识

#!/bin/env perl
#aec3.pl(ok)
#加上时延,实现了乱序
#收发2次
use warnings;
use strict;

use Time::HiRes qw(time);
use AnyEvent;
use AnyEvent::Impl::Perl;
use AnyEvent::Socket;
use AnyEvent::Handle;

my $CYCLES = 3;
my $port   = 11212;



my $t = time;
#my $cv = AnyEvent->condvar;  #这两个等效
my $cv = AE::cv;

for my $connections (1..$CYCLES) {
   $cv->begin;  #开启事务. and条件.  send是or条件
   tcp_connect "127.0.0.1", $port, sub {
      my ($fh) = @_
         or die "tcp_connect: $!";

      my $hdl = new AnyEvent::Handle fh => $fh;

      $hdl->push_write ("1write $connections\n");
      $hdl->push_read (line => sub {
      	 my (undef, $line) = @_;
      	 print "got 1line $line.\n";
      	 my $w;$w = AnyEvent->timer (after => 0.25, cb => sub { #必须先定义$w
           warn "timeout\n";
            $hdl->push_write ("2write $connections\n");
            $hdl->push_read (line => sub {
      	      my (undef, $line) = @_;
      	      print "got 2line $line.\n";
              undef $hdl;
              #$cv->send;  #一次连接交互完成，结束tcp_connect，
              $cv->end;  #一次连接交互完成，结束tcp_connect，
            });
           
         });
         undef $W;
      	 
         #undef $hdl;
         #$cv->send;
      });
     
      
   };

  #$cv->recv;  #不应在此recv,否则就变成循环而非并发了
};

 $cv->recv;

$t = time - $t;
printf "%.3f sec\n", $t;
exit;