anyevent::socket+coro::handle client编程(测试客户端)

最新推荐文章于 2023-03-03 20:22:16 发布

laputa73

最新推荐文章于 2023-03-03 20:22:16 发布

阅读量842

点赞数

CC 4.0 BY-SA版权

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

perl 专栏收录该内容

29 篇文章

订阅专栏

本文介绍了如何使用anyevent::socket和coro::handle模块进行Perl客户端编程。通过实例展示了这两种不同的组合方式：coro::socket+coro::handle以及anyevent::socket+anyevent::handle，并探讨了anyevent::socket+coro::handle在服务器端的应用。

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

还是一样的功能,使用anyevent::socket+coro::handle实现

#!/bin/env perl
#使用anyevent::socket作client(ok)
#使用coro::handle处理
use strict;
use AnyEvent;
use Coro;
use Coro::AnyEvent;
use Coro::Handle; 
use AnyEvent::Socket;



#控制超时用
#如果用默认的select,就会阻塞
use Coro::Select qw(select);

my $cocurrent = 3;    # 并发数
my @coro;

doit() foreach 1..$cocurrent;

sub doit{

	 push @coro, async {
	 	 # 创建到server的连接socket
	 	 #使用无阻塞的socket
#两种都可以	 	 
#      my $sock= Coro::Socket ->new(PeerAddr => 'localhost',
#                               PeerPort => 1234,
#                               Proto    => 'tcp');
# 			my $sock= new Coro::Socket(PeerAddr => 'localhost',
#                               PeerPort => 1234,
#                               Proto    => 'tcp');  
                               
  tcp_connect "localhost", 1234, Coro::rouse_cb;
   my $sock = unblock +(Coro::rouse_wait)[0];                                                            

      for (1..10) {  # 每个协 程里，发送10次数据
          #print $sock  (random() . "\n");
          $sock->print(random() . "\n");
          #使用select休眠0.25s
          select(undef, undef, undef, 0.5);
          #Coro::Select::select(undef, undef, undef, 0.5);  # 每发送一次，就休眠0.25秒
          #或者使用非阻塞的sleep 1s.否则会阻塞
          #Coro::AnyEvent::sleep 1;
      }

      $sock->close;  # 发送完后关闭socket，并退出
      
      return;
      
	 }     
}

foreach (@coro) {
        print "joining\n";
        $_->join;
        print "joined\n";
};

sub random {  # 该函数产生随机字串
    my @x=(0..9,'a'..'z','A'..'Z');
    join '',map {$x[int rand @x]} 1..49;  # 返回49字节长度的串
}

小结一下

可以使用的组合有

coro::socket+coro::handle 这个比较简单,类似以前的代码风格

anyevent::socket+anyevent::handle 这个就是回调函数的风格

anyevent::socket+coro::handle 这个目前还有点没弄明白.client没问题,但是server没搞定