我怎样才能使计时器“可见”?此示例返回(始终与 sleep 时间无关)2
(我期待类似于 sleep 时间的东西)。
#!/usr/local/bin/perl
use warnings;
use 5.014;
use AnyEvent;
my $c = 0;
my $cv = AnyEvent->condvar;
my $once_per_second = AnyEvent->timer (
after => 0,
interval => 1,
cb => sub {
$c++;
$cv->send;
},
);
sleep 5;
$cv->recv;
say $c;
最佳答案
至少有两个问题:
sleep 5
不运行事件循环。 sleep 5
声明,$c
只会是 1。这是你想要的吗?
my $c = 0;
my $cv = AnyEvent->condvar;
my $once_per_second = AnyEvent->timer(after => 0, interval => 1, cb => sub { $c++ });
my $five_seconds = AnyEvent->timer(after => 5, cb => sub { $cv->send });
$cv->recv;
say $c;
关于perl - AnyEvent 计时器问题,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/6854962/