第一个脚本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<(@tmp-1);$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"); }}解决方法 您可以使用Parallel :: ForkManager(将$MAX_PROCESSES设置为同时处理的文件数):
use Parallel::ForkManager;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<(@tmp-1);$i++) { if($name eq "") { $name = $tmp[$i]; } else { $name=$name.".".$tmp[$i];} } my $exten=$tmp[(@tmp-1)]; my $orig=$name.".".$exten; $pm = new Parallel::ForkManager($MAX_PROCESSES); my $pID = $pm->start and next; system("perl magicPlate.pl -i ".$orig." -min 4 -max 160 -d 1"); $pm->finish; # Terminates the child process }}
但正如Hugmeir所建议的那样,为每个新文件一次又一次地运行perl解释器并不是一个好主意.
总结以上是内存溢出为你收集整理的linux – 如何修改perl脚本以使用多个处理器?全部内容,希望文章能够帮你解决linux – 如何修改perl脚本以使用多个处理器?所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)