Perl_子程序数据传入传出_哈希
第一种方法,传入哈希,哈希转数组,然后进行后面的处理。
下面这个是网上别人的一个子程序,直接拿来用了
use Array::Compare;
sub hashcompare {
my @hasharray=@_;
my @array1=%{$hasharray[0]};
my @array2=%{$hasharray[1]};
my $comp = Array::Compare->new;
$comp->compare(\@array1, \@array2);
}
if (hashcompare(\%new,\%old))
{
print “Same\n";
}else{