个人中心
gpt4 book ai didi

Perl AnyEvent中的watcher实例

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 24 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章Perl AnyEvent中的watcher实例由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

这几天看了下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.zzvips.com/article/77290.html 。

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;

最后此篇关于Perl AnyEvent中的watcher实例的文章就讲到这里了,如果你想了解更多关于Perl AnyEvent中的watcher实例的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

24 4 0
文章推荐： Windows Powershell 自动化变量
文章推荐： Windows Powershell 定义变量
文章推荐： perl AnyEvent简单介绍和入门知识
文章推荐： Perl信号处理学习简单小结
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
全站热门文章
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com