需要在perl expect中并行运行命令

use strict;
use warnings;
use Expect;
use threads;

# 定义要执行的命令列表
my @commands = (
    "command1",
    "command2",
    "command3"
);

# 创建一个数组来保存每个线程的返回结果
my @results;

# 创建线程并执行命令
foreach my $command (@commands) {
    push @results, threads->create(sub {
        my $exp = Expect->new;
        $exp->spawn($command);
        my $output = $exp->expect(undef);
        $exp->soft_close();
        return $output;
    });
}

# 等待所有线程执行完毕
foreach my $thread (@results) {
    my $output = $thread->join();
    # 处理线程返回的结果
    print "Command output: $output\n";
}