AnyEventでイベント駆動プログラミング

参考

AnyEventとPlackの社内勉強会資料
Perl 非同期プログラミング

イベント駆動とは

割り込み処理。

AnyEventとは

イベント駆動プログラム用モジュール。他のイベント駆動モジュールのラッパーとしても動作するので、これ1つで良いとか。まぁ、なんか争ってるみたいですが。


割り込み処理なので、マルチプロセスじゃないです。

AnyEvent vs AE

牧さんのスライドではスタイルが違うだけとあるけど、どっかのblogではAEのほうが速いとあった。
AEは短く書けるけど引数の順番覚えないといけないから、引数がハッシュのAnyEventを使うよ。

書いてみた

#instant_noodle.pl
use strict;
use AnyEvent::Util qw(fh_nonblocking);

fh_nonblocking( \*STDIN, 1 );


my $CPS_for_noodle = 0;

sub input_time_from_STDIN {
my $cv = AnyEvent->condvar;
my $w;

print "自然数を入力してください\n";
$w = AnyEvent->io(
fh   => \*STDIN,
poll => 'r',
cb   => sub {
undef $w;
my $line = <STDIN>;
$cv->send($line);
}
);
return $cv;
}

sub count_timer {
my $cv = AnyEvent->condvar;
my $w;
$w = AnyEvent->timer(
after => $CPS_for_noodle,
cb    => sub {
print $CPS_for_noodle / 60, "分経ちました!\n";
undef $w;
$cv->send;

}
);
return $cv;
}


my $main_cv = AnyEvent->condvar;
{
my $cv = input_time_from_STDIN();
$cv->cb(
        sub {
($CPS_for_noodle) = $_[0]->recv;
print "set ", $CPS_for_noodle / 60, " minutes\n\n";
print "出来たら呼ぶから、とりあえず机の上を片付けろ！\n";
$main_cv->send;
}
);

}
$main_cv->recv;

$main_cv = AnyEvent->condvar;
{
my $cv = count_timer($CPS_for_noodle);
$cv->cb(
        sub {
print "\a";
print "ラーメンできたよ！\n";
$main_cv->send;
}
);

}
$main_cv->recv;

ださい

#毎回、このスタイルで書くのか・・・・
$main_cv = AnyEvent->condvar;
{
・・・・・・
}
$main_cv->recv;

とりあえず、他の人のソースをちゃんと読まないうちにゴリ押しで書くと
大変なことになりそうだと思いました。