Question

在独立的Perl脚本中，我需要同时调用外部Web服务（下面在$number+1中进行了模拟）。我以为我会重用Mojo :: Promise代码，但是没有用-on_done()代码无法执行。

我愿意在Perl中使用更好的方法（队列？）。

#!/usr/bin/env perl

use Mojo::IOLoop;
use Mojo::Promise;
use Future::Utils 'fmap_concat';

####### STASH ######
my $result_future; #
####################

my $count = 100;
my @numbers = 1..$count;

if (@numbers) {
    my $result_f = fmap_concat {
        my $number = shift;
        my $p = Mojo::Promise->new;
        Mojo::IOLoop->subprocess(
            sub {
                #sleep 2;
                return $number+1;
            },
            sub {
                my ($subprocess, $err, @result) = @_;
                return $p->reject($err) if $err;
                $p->resolve(@result);
            });
        return $p->with_roles('Mojo::Promise::Role::Futurify')->futurify;
    } foreach => \@numbers, concurrent => 20;

    $result_f
        ->on_done(
        sub {
            my @values = @_;
            foreach my $response (@values) {
                print STDERR "Response='$response'\n";
            }
        })
        ->on_fail(
        sub {
            my $error = shift;
            print STDERR "# ERROR='$error'\n";
        })
        ->on_ready(
        sub {
            $result_future = undef;
        })
        ;

    # Must keep a reference to Futures until we're done with them.
    $result_future = $result_f;
}
print STDERR "Processing $count numbers\n"

Answer 1

由于您没有在已经运行的事件循环中使用此代码，因此您需要自己运行事件循环以使任何事情发生。最简单的方法是等待您的期货完成。

$result_f->await;

在这种情况下，无需保留单独的$result_future引用，因为该语句将阻塞直到期货准备就绪为止。与此相关的->get（仅是->await，如果成功则返回结果，如果失败则抛出异常）是Futures允许您以顺序方式运行非阻塞代码的主要机制。

在独立的Perl脚本中使用Mojo :: Promise

1 个答案: