小编dc_*_*erd的帖子

我需要并行运行 Perl 测试，并在每个测试文件的单独文件中捕获 STDOUT 和 STDERR。即使在一个文件中捕获，我也没有成功。我一直都这样，但没有运气。这就是我开始的地方（我不会给你带来所有的变化）。任何帮助是极大的赞赏。谢谢！

foreach my $file ( @files) {
    next unless $file =~ /\.t$/;
    print "\$file = $file\n";

    $file =~ /^(\w+)\.\w+/;
    
    my $file_pfx = $1;
    my $this_test_file_name = $file_pfx . '.txt';
    
    system("perl $test_dir\\$file > results\\$test_file_name.txt &") && die "cmd failed: $!\n";

}