- 时间：2020-08-19 00:43 编辑： 来源： 阅读：
- 扫一扫，手机访问
摘要：Perl AnyEvent中的watcher实例
这几天看了下perl的事件编程框架AnyEvent,重点参考了一下几篇文章：
[url=http://search.cpan.org/~mlehmann/AnyEvent-7.05/lib/AnyEvent.pm]http://search.cpan.org/~mlehmann/AnyEvent-7.05/lib/AnyEvent.pm[/url]
[url=http://search.cpan.org/~mlehmann/AnyEvent-7.05/lib/AnyEvent/Intro.pod]http://search.cpan.org/~mlehmann/AnyEvent-7.05/lib/AnyEvent/Intro.pod[/url]
[url=http://www.1sucai.cn/article/55278.htm]http://www.1sucai.cn/article/55278.htm[/url]
[b]1、什么是事件编程？[/b]
举个简单的例子，你浏览网页的时候，你点击一个图片，蹭的弹出一个东西，你不点，那就在那里，等待一个人来点它。如果你写过js，其实就是，你注册了很多的时间比如click，dbclick，keybord，submit等，那么浏览器就起到帮我们去监听这些事件的发生（Loop）。当有对应的事件发生的时候，我们也一般也设置了callback，比如onclick，onsubmit等，去响应这些事件，这基本就是事件编程的一个缩影了。
[b]2、perl AnyEvent中的watcher[/b]
在AnyEvent中有5中watcher，分别是IO，timer，signal, child, idle.
2.1 io watcher
[url=http://www.1sucai.cn/article/55272.htm]perl信号处理简单学习[/url]》，这里主要是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;
机械节能产品生产企业官网模板...
大气智能家居家具装修装饰类企业通用网站模板...
礼品公司网站模板
宽屏简约大气婚纱摄影影楼模板...
蓝白WAP手机综合医院类整站源码（独立后台）...
