一次执行多个命令[关闭]

Question

我正在尝试用 Perl 编写一些东西（但我也很高兴使用 Python 或 PHP 来做同样的事情）：

• 获取一个列表（例如，文件或 URL）

• 添加额外的系统命令（例如cp）

• 在列表中最多执行十个这样的命令，比如说总共一千个

• 等待十个槽之一变为并开始一个新过程，从而在 1000 个元素中移动。

我现在正在走捷径，并使用反引号在 Perl 中执行命令，但如果有更好的方法来实现这一点，我将不胜感激。

Answer 1

你应该展示你写的东西，否则我们无法知道什么是“更好的方法”

你应该看看Parallel::ForkManager。使用该模块，您的程序可能看起来像这样

这段代码缺少很多东西，最重要的是use strict 和use warnings 'all'，以及@list 的声明和填充。我相信你可以填空

注意，十个并行进程的限制是模块强加的，并且"..."必须自己填写为目标路径。最好在 Perl 中做你需要做的事情，而不是仅仅打电话给cp，所以我参与了File::Copy

use Parallel::ForkManager ();
use File::Copy 'copy';

my $pm = Parallel::ForkManager->new(10);

for my $file ( @list ) {

    next if my $pid = $pm->start;

    # Child code

    copy $file, "...";
    $pm->finish;
}