coro::socket+coro::handle client编程(测试client)-优快云博客

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

本文介绍了如何利用coro::socket和coro::handle模块在Perl中创建无阻塞的客户端。尽管与传统实现看似相似，主要区别在于使用了$sock->print而非print $sock进行输出。

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

下面使用无阻塞的的coro::socket实现测试客户端

使用coro::socket+coro::handle实现

注意,coro::handle需要用到anyevent

因为client比较简单,所以看起来和前面的实现每什么区别,就是print $sock换成了$sock->print

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


#控制超时用
#如果用默认的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');                               

      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字节长度的串
}