我试图用Mojo::UserAgent
发出一个非阻塞请求,但是当我运行下面的代码时,我得到
在串联(.)中使用未初始化值$_或字符串
在print
线路上。
如何在回调中访问$_
?
my $ua = Mojo::UserAgent->new();
my @ids = qw( id1 id2 id3 );
foreach ( @ids ) {
my $res = $ua->get('http://my_site/rest/id/'.$_.'.json' => sub {
my ($ua, $res) = @_;
print "$_ => " . $res->result->json('/net/id/desc'), "\n";
});
}
Mojo::IOLoop->start unless Mojo::IOLoop->is_running;
https://stackoverflow.com/questions/52243566
复制相似问题