Question

perl 多进程与多线程

写了个脚本，就是同时处理两个文件，最后比较两个样本的差异，
用一个脚本，主函数读入两个文件后，想并行调用同一个子函数处理每一个文件，待2个文件都处理完毕，最后由主函数比较两个文件的差异，就想问下，是用多线程还是多进程呢？
比如：下面的脚本，想并行运行for 循环里面的$parameter[0],$parameter[1]，而不是等待$parameter[0]运行完，再运行$parameter[1].求解决方案！！！谢啦。
#!/bin/usr/perl -
@parameter = @ARGv;
for $file (@parameter){
&deal_file($file)

}

&comare($parameter[0],$parameter[1]);

sub deal_file{

###
return;
}
sub comare{
##
return;
}

Answer 1

use strict;
use threads;
use threads::shared;

my @param :shared;
@param = @ARGV;

my ( $f1r, $f2r ) ;
$f1r :shared;
$f2r :shared;

sub deal_file {}
sub compare {}

# main
while ( @param ) {
my $f1 = shift @param;
my $f2 = shift @param;

my $t1 = threads -> new ( sub { $f1r = deal_file ( $f1 ) } ) ;
my $t2 = threads -> new ( sub { $f2r = deal_file ( $f2 ) } ) ;

$t1 -> join(); $t2 -> join();
compare ( $f1r, $f2r ) ;}