use AnyEvent;
my $w = AnyEvent->timer(
after => 0,
interval => 5,
cb => sub {
print "hello\n";
}
);
##进入事件回旋
my $cv = AnyEvent->condvar;
$cv->recv; # just like while (1) {...}
perl AnyEvent
最新推荐文章于 2018-03-07 10:48:43 发布
use AnyEvent;
my $w = AnyEvent->timer(
after => 0,
interval => 5,
cb => sub {
print "hello\n";
}
);
##进入事件回旋
my $cv = AnyEvent->condvar;
$cv->recv; # just like while (1) {...}