Perl_子程序数据传入传出_哈希

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 “Samen";

}else{

? ? print "Differentn";

}

第二种方法，传入哈希，直接拿哈希进行后面处理。

sub pro {
? ? my ($nam)=@_;
? ? my %sup;
? ? foreach my $key (keys %{$nam})
? ? {
? ? ? ? $sup{$key}=${$nam}{$key};
? ? }
? ? return %sup;
}

my %loop;
%loop=pro(%new);