| 标题 | Perl AnyEvent中的watcher实例 |
| 范文 | 什么是事件编程？ 举个简单的例子，你浏览网页的时候，你点击一个图片，蹭的弹出一个东西，你不点，那就在那里，等待一个人来点它。如果你写过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; |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。