您的位置：首页 > 编程技术 > Perl  >  Perl AnyEvent中的watcher实例

Perl AnyEvent中的watcher实例

 更新时间：2020年6月29日 13:42  点击：2519

这几天看了下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

https://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;

[!--infotagslink--]

相关文章

  • C#使用FileSystemWatcher控件实现的文件监控功能示例

    这篇文章主要介绍了C#使用FileSystemWatcher控件实现的文件监控功能,结合实例形式分析了C# FileSystemWatcher组件的功能及监控文件更改情况的具体使用技巧,需要的朋友可以参考下...2020-06-25

  • Perl模块编写说明

    这两天在用Perl编写一些监控脚本，其实写代码也是一件挺有意思的事情，就是挺废时间的。而且，由于语法不太熟，基本想到一个东西都要先Google一下看怎么实现。...2020-06-29

  • Perl与JS的对比分析(数组、哈希)

    下面小编就为大家带来一篇Perl与JS的对比分析(数组、哈希)。小编觉得挺不错的，现在就分享给大家，也给大家做个参考。一起跟随小编过来看看吧...2020-06-29

  • perl 模式匹配参数详解

    一、简介 模式指在字符串中寻找的特定序列的字符，由反斜线包含：/def/即模式def。其用法如结合函数split将字符串用某模式分成多个单词：@array = split(/ /, $line);二、匹配...2020-06-29

  • Perl localtime时间函数的应用介绍

    Perl时间函数localtime的使用介绍，这里简单的介绍下，更多请查看官方介绍...2020-06-29

  • Perl中的特殊内置变量详细介绍

    这篇文章主要介绍了Perl中的特殊内置变量详细介绍,需要的朋友可以参考下...2020-06-29

  • 讲Perl中的本地时间与UNIX时间戳间相互转换的方法

    这篇文章主要介绍了讲Perl中的本地时间与UNIX时间戳间相互转换的方法,主要用到了Perl中的Date::Parse模块,需要的朋友可以参考下...2020-06-29

  • perl 列表和数组变量详解

    一、列表 列表是包含在括号里的一序列的值，可以为任何数值，也可为空，如：(1, 5.3 , "hello" , 2)，空列表：()。 注：只含有一个数值的列表(如：(43.2) )与该数值本身(即：43.2 )是不同...2020-06-29

  • Perl学习笔记之CPAN使用介绍

    这篇文章主要介绍了Perl学习笔记之CPAN使用介绍,本文讲解了什么是CPAN、CPAN的目录作用介绍、CPAN安装Perl Module的两种方法等内容,需要的朋友可以参考下...2020-06-29

  • C# FileSystemWatcher 在监控文件夹和文件时的使用方法

    这篇文章主要介绍了C# FileSystemWatcher 在监控文件夹和文件时的使用方法，文中讲解非常细致，代码帮助大家更好的理解和学习，感兴趣的朋友可以参考下...2020-11-03

  • Perl 批量添加Copyright版权信息

    对所有输入文件，如果没有版权信息则加上版权信息，否则什么都不做，并对原文件以.bak结尾备份,需要的朋友可以参考下...2020-06-29

  • Perl中使用MIME::Lite发送邮件实例

    这篇文章主要介绍了Perl中使用MIME::Lite发送邮件实例,本文介绍了使用sendmail方式发送、发送HTML格式邮件、smtp方式发送邮件等内容,需要的朋友可以参考下...2020-06-29

  • Perl AnyEvent中的watcher实例

    这篇文章主要介绍了Perl AnyEvent中的watcher实例,关于AnyEvent请参阅的更多介绍请参阅文中的相关链接,需要的朋友可以参考下...2020-06-29

  • perl获取日期与时间的实例代码

    perl获取日期与时间的例子，供大家学习参考...2020-06-29

  • 简单实现Vue的observer和watcher

    这篇文章主要教大家如何简单实现Vue的observer和watcher，具有一定的参考价值，感兴趣的小伙伴们可以参考一下...2016-12-31

  • Perl中的列表和数组学习笔记

    这篇文章主要介绍了Perl中的列表和数组学习笔记,本文讲解了列表、数组--列表的存贮、数组的存取、字符串中的方括号和变量替换、列表范围、数组的输出等内容,需要的朋友可以参考下...2020-06-29

  • perl后门,正向和反向!实例代码

    写过很多关于Perl编程，今天继续分享一篇利用perl后门实现正向和反向连接的实例代码，需要的朋友可以参考下其中的内容详情...2020-06-29

  • 使用perl实现拆分数据表（mysql）并迁移数据实例

    这篇文章主要介绍了使用perl实现拆分数据表（mysql）并迁移数据实例,本文提供了3个脚本,分别用于拆分数据表、迁移数据、插入测试数据,需要的朋友可以参考下...2020-06-29

  • 7个perl数组高级操作技巧分享

    这篇文章主要介绍了7个perl数组高级操作技巧,本文讲解了数组去重、数组合并、查找最大值、列表归并等内容,需要的朋友可以参考下...2020-06-29

  • perl uc,lc,ucfirst,lcfirst大小写转换函数

    这篇文章主要介绍了perl 大小写字母转换函数,需要的朋友可以参考下...2020-06-29