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

概述Perl_子程序数据传入传出_哈希 第一种方法，传入哈希，哈希转数组，然后进行后面的处理。 下面这个是网上别人的一个子程序，直接拿来用了 use Array::Compare; sub hashcompare {     my @hasharray=@_;     my @array1=%{$hasharray[0]};     my @array2=%{$hasharray[1]};     m

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{

    print "Different\n";

}

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

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

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

总结

以上是内存溢出为你收集整理的Perl_子程序数据传入传出_哈希全部内容，希望文章能够帮你解决Perl_子程序数据传入传出_哈希所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。