perl - Windows Perl 中 AnyEvent 的错误

我尝试在 Windows Perl 中使用 AnyEvent 的 fork_call。我写了一些示例代码:

use AnyEvent;
use AnyEvent::Util;
use Data::Dumper;

my $cv = AnyEvent -> condvar;
my $a;

fork_call {
    $a = 1;
    $cv -> send;
}, sub {
    $cv -> recv;
    print Dumper $a;
}

但我收到以下错误:

Can't locate object method "one_event" via package "AnyEvent" at
C:/Perl/perl/site/lib/AnyEvent/Util.pm line 329.
END failed--call queue aborted.

最佳答案

你的代码是错误的。如果您使用 fork() ，那么您将拥有 $cv 和 $a 的副本。正确的代码是:

use AnyEvent;
use AnyEvent::Util;

my $cv = AnyEvent->condvar;
my $a;

fork_call {
    1;
} sub {
    ($a) = @_;
    print($a);
    $cv->send();
};
$cv->wait();

关于perl - Windows Perl 中 AnyEvent 的错误，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/20042684/