anyevent::socket+anyevent::handle server编程 (echo server改造 + 测试server)

最新推荐文章于 2019-09-16 13:53:00 发布

laputa73

最新推荐文章于 2019-09-16 13:53:00 发布

阅读量1.1k

点赞数

分类专栏： perl 文章标签： anyevent perl Perl PERL socket Socket SOCKET

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

版权

perl 专栏收录该内容

29 篇文章

订阅专栏

push_read是一次性的读.

改为on_read方法可以实现持续读.直到客户端断开

#!/bin/env perl
#使用on_read代替push_read
use warnings;
use strict;

use Time::HiRes qw(time);
use AnyEvent;
#这个是ae的perl实现，要比EV慢一点点
use AnyEvent::Impl::Perl;
use AnyEvent::Socket;
use AnyEvent::Handle;

my $CYCLES = 500;
my $port   = 11212;

#这两个都可以
my $cv = AnyEvent->condvar;
#my $cv = AE::cv;
  
tcp_server undef, $port, sub {
   my ($fh) = @_
      or die "tcp_server: $!";
   my $hdl;
   $hdl = new AnyEvent::Handle fh => $fh,
   					on_error => sub {
               #AE::log error => $_[2];
               $_[0]->destroy;
            },
            on_eof => sub {
               $hdl->destroy; # destroy handle
               #AE::log info => "Done.";
            };
            
    $hdl->on_read (sub {
    	my ($h)=@_;
    	my $line=$h->rbuf;
      print "got a line $line.";
       $h->push_write ("$line");
      $_[0]->rbuf = "";
      #undef $hdl;
   });

            
};

#这两个都可以。。。
#$cv->wait;
$cv->recv;

这个稍微改改就可以配合前面的client测试了

#!/bin/env perl
#sever AnyEvent::Socket版
use strict;
use IO::Socket::INET;
use AnyEvent;
#这个是ae的perl实现，要比EV慢一点点
use AnyEvent::Impl::Perl;
use AnyEvent::Socket;
use AnyEvent::Handle;



my $cv = AnyEvent->condvar;


AnyEvent::Socket::tcp_server undef, 1234, sub {
   my ($fh, $host, $port) = @_;
   #print "Got new client connection: $host:$port\n";

   my $hdl; #这个定义很关键
   $hdl = new AnyEvent::Handle fh => $fh,
   					on_error => sub {
               #AE::log error => $_[2];
               $_[0]->destroy;
            },
            on_eof => sub {
               $hdl->destroy; # destroy handle
               #AE::log info => "Done.";
            };


    $hdl->on_read (sub {
    	my ($h)=@_;
    	my $line=$h->rbuf;
    	print $h->fh->fileno, ":", $line, " ";
      #print "got a line $line.";
       #$h->push_write ("$line");
      $_[0]->rbuf = "";
      #undef $hdl;
   });
   
#   $hdl->on_read (sub {
#     my ($hdl) = @_;				
#  	 print $hdl->fh->fileno, ":", $hdl->rbuf, " ";
#     $hdl->rbuf = "";
#   });
};

#$cv->wait;
$cv->recv;

说明,anyevent::socket先对coro::socket来说要多得多了,而且也有了一些例子

不过摸索过程中也出了很多状况

可能和当时人的精神状态有关

怎么也调不过

等过一天重新写一遍,可能就好了.