perl脚本怎么控制linux,linux – 如何修改perl脚本以使用多个处理器？

嗨,我有一个简单的脚本,它接受一个文件,并在其上运行另一个Perl脚本.该脚本对当前文件夹中的每个图片文件执行此操作.这是在一台配备2个四核Xeon处理器,16GB内存,运行RedHat

Linux的机器上运行的.

第一个脚本work.pl基本上调用magicplate.pl传递一些参数和magicplate.pl文件的名称来处理. Magic Plate需要大约一分钟来处理每个图像.因为work.pl正在执行相同的功能超过100次,并且因为系统有多个处理器和核心,所以我正在考虑将任务拆分,以便它可以并行运行多次.如有必要,我可以将图像分割到不同的文件夹.任何帮助都会很棒.谢谢

这是我到目前为止：

use strict;

use warnings;

my @initialImages = ;

foreach my $file (@initialImages) {

if($file =~ /.png/){

print "processing $file...\n";

my @tmp=split(/\./,$file);

my $name="";

for(my $i=0;$i

if($name eq "") { $name = $tmp[$i]; } else { $name=$name.".".$tmp[$i];}

}

my $exten=$tmp[(@tmp-1)];

my $orig=$name.".".$exten;

system("perl magicPlate.pl -i ".$orig." -min 4 -max 160 -d 1");

}

}