Perl中实现Async并行函数调用的问题（Mojolicious场景）

你的代码目前同步执行有两个核心问题：

• sleep 1是阻塞式操作，会卡住整个事件循环，无法实现并行
• 调用funcA后没有等待异步任务完成，也没有将多个异步任务调度为并行执行

下面是适配Mojolicious环境的修正方案：

方案一：使用Mojo::Promise（Mojolicious原生异步工具） #

use Mojo::Base -strict;
use Mojo::Promise;

async sub asyncSub {
    my $funcA = sub {
        my $num = shift;
        print "This is $num (START)\n";
        # 用Mojo的非阻塞timer替代sleep
        await Mojo::Promise->timer(1);
        print "This is $num (END)\n";
        return $num;
    };

    # 收集所有异步任务的Promise对象
    my @promises = map { $funcA->($_) } (1,2,4,5,6,7,8,9,10);
    # 等待所有Promise完成（并行执行）
    await Mojo::Promise->all(@promises);
}

# 在Mojolicious控制器中，你需要确保事件循环运行
# 如果是独立脚本，需要启动IOLoop
asyncSub()->then(sub {
    Mojo::IOLoop->stop;
})->catch(sub {
    warn "Error: $_[0]";
    Mojo::IOLoop->stop;
});
Mojo::IOLoop->start;

方案二：结合Future::AsyncAwait与Future::Mojo（适配Mojo事件循环） #

如果你坚持用Future::AsyncAwait，需要用Future::Mojo让Future适配Mojolicious的事件循环，同时替换阻塞sleep：

use Future::AsyncAwait;
use Future::Mojo;
use Mojo::IOLoop;

async sub asyncSub {
    async sub funcA {
        my $num = shift;
        print "This is $num (START)\n";
        # 用Future::Mojo的非阻塞等待替代sleep
        await Future::Mojo->new_timer(1);
        print "This is $num (END)\n";
    };

    # 收集所有Future对象
    my @futures = map { funcA($_) } (1,2,4,5,6,7,8,9,10);
    # 等待所有Future并行完成
    await Future->wait_all(@futures);
}

# 启动事件循环并执行异步任务
asyncSub()->on_done(sub {
    Mojo::IOLoop->stop;
})->on_fail(sub {
    warn "Error: $_[0]";
    Mojo::IOLoop->stop;
});
Mojo::IOLoop->start;

关键说明 #

• 替换阻塞sleep：sleep会直接阻塞进程，必须用Mojo提供的非阻塞定时器，这样事件循环才能同时调度多个异步任务。
• 并行调度：通过收集所有异步任务的Promise/Future，再用all或wait_all等待全部完成，这样所有任务会同时启动，并行执行。
• Mojolicious控制器中的使用：在控制器动作中，你可以直接返回Promise，Mojolicious会自动处理事件循环，比如：

sub my_action {
    my $c = shift;
    $c->render_later; # 告诉控制器要异步响应
    asyncSub()->then(sub {
        $c->render(json => {status => 'done'});
    })->catch(sub {
        $c->render(json => {error => $_[0]}, status => 500);
    });
}

内容的提问来源于stack exchange，提问作者Arsenii