Perl AnyEvent中的watcher執行個體_perl

這幾天看了下perl的事件編程架構AnyEvent,重點參考了一下幾篇文章：

http://search.cpan.org/~mlehmann/AnyEvent-7.05/lib/AnyEvent.pm

http://search.cpan.org/~mlehmann/AnyEvent-7.05/lib/AnyEvent/Intro.pod

http://www.jb51.net/article/55278.htm

1、什麼是事件編程？

舉個簡單的例子，你瀏覽網頁的時候，你點擊一個圖片，蹭的彈出一個東西，你不點，那就在那裡，等待一個人來點它。如果你寫過js，其實就是，你註冊了很多的時間比如click，dbclick，keybord，submit等，那麼瀏覽器就起到幫我們去監聽這些事件的發生（Loop）。當有對應的事件發生的時候，我們也一般也設定了callback，比如onclick，onsubmit等，去響應這些事件，這基本就是事件編程的一個縮影了。

2、perl AnyEvent中的watcher

在AnyEvent中有5中watcher，分別是IO，timer，signal, child, idle.

2.1 io watcher

複製代碼 代碼如下:

#!/usr/bin/perl
 
use AnyEvent;
my $cv = AnyEvent->condvar;
 
#open my $file , '<' , 'test.txt' or die "$!" ;
open F , '<' , 'test.txt' or die "$!" ;
my $io_watcher = AnyEvent->io (
      fh   => *F,
      poll => 'r',
      cb   => sub {
         chomp (my $input = sysread F ,my $buf ,1024); # read a line
 
         warn "read: $buf\n"  if $input >0 ;       # output what has been read
         #$cv->send if /quit/ ; # quit program if /quit/i
      },
   );
 
$cv->recv; # wait until user enters /quit/i

timer watcher

AnyEvent 的timer的一部分其實像javascript的setInterval :

複製代碼 代碼如下:

#!/usr/bin/perl
 
use 5.016;
use AnyEvent ;
 
my $cv = AnyEvent->condvar ;
 
my $w = AnyEvent->timer(
    after => 0 ,  #多少秒之後觸發事件
    interval => 2 ,  #多少秒觸發事件
    cb => sub {
        say AnyEvent->time ," ",AnyEvent->now ;
 
    }
);
 
$cv->recv;

signal watcher

前面我們在的文章中寫到了perl中對於訊號的處理 《perl訊號處理簡單學習》，這裡主要是AnyEvent中對於這些事件的處理。

複製代碼 代碼如下:

#!/usr/bin/perl
 
use 5.016;
use AnyEvent ;
#say for keys %SIG; 看一下又多少訊號
my $cv = AnyEvent->condvar ;
 
my $w = AnyEvent->signal(
    signal => 'INT',
    cb => sub {
        say AnyEvent->time ," ",AnyEvent->now ;
        exit 1 ;
 
    }
);
 
$cv->recv;

child watcher

複製代碼 代碼如下:

#!/usr/bin/perl
use AnyEvent;
   my $done = AnyEvent->condvar;
 
   my $pid = fork or exit 5;
 
   my $w = AnyEvent->child (
      pid => $pid,
      cb  => sub {
         my ($pid, $status) = @_;
         warn "pid $pid exited with status $status";
         $done->send;
      },
   );
 
   # do something else, then wait for process exit
   $done->recv;

idle watcher

就是如果main loop在閒置時候做些什麼呢？

複製代碼 代碼如下:

#!/usr/bin/perl
use AnyEvent;
   my @lines; # read data
   my $idle_w;
   $cv = AnyEvent->condvar;
   my $io_w = AnyEvent->io (fh => \*STDIN, poll => 'r', cb => sub {
      push @lines, scalar <STDIN>;
 
      # start an idle watcher, if not already done
      $idle_w ||= AnyEvent->idle (cb => sub {
         # handle only one line, when there are lines left
         if (my $line = shift @lines) {
            print "handled when idle: $line";
         } else {
            # otherwise disable the idle watcher again
            undef $idle_w;
         }
      });
   });
 
   $cv->recv;