请教如何比较两个hash是否相同？

iwanthome

我用
if(%hash1 == %hash2)
{
...
}
好像不行啊
谢谢！

apile

相同？是指ref到同一個 hash嗎？
還是數值相同?
看起來向後面這個...
你得一個一個抓裡面的數值出來比較..看看一不一樣..
不然上CPAN找找..應該有現成的module可以用..

seacaptain

#!/usr/bin/perl
sub hashcompare {
        @hasharray=@_;
        my $key1str=join "|",keys(%{$hasharray[0]});
        my $key2str=join "|",keys(%{$hasharray[1]});
        if($key1str eq $key2str)
        {
                $val1str=join "|",values(%{$hasharray[0]});
                $val2str=join "|",values(%{$hasharray[1]});
                if($val1str eq $val2str)
                {
                        return 1;
                }
                else
                {
                        return 0;
                }
        }
}
%hash1=("one"=>;1,"two"=>;2);
%hash2=("one"=>;2,"two"=>;2);
if(hashcompare(\%hash1,\%hash2))
{
        print "两个hash相同\n";
}
else
{
    print "两个hash不相同\n";
}
希望来的不晚。我自己写的一个小函数。请斧正

seacaptain

在周末完成。愉快

don

如果hash的key或value里有"|"就可能出错了。

例如：
%hash1=("one"=>;1,"two"=>;2);
%hash2=("one|two"=>;"1|2";

%hash1=("one"=>;"1|2","two"=>;2);
%hash2=("one"=>;"1","two"=>;"2|2";


改进后的hashcompare：

1. 
   
2. sub hashcompare {
   
3.   @hasharray=@_;
   
4.   # compare number of keys first
   
5.   if ( keys(%{$hasharray[0]}) == keys(%{$hasharray[1]}) ) {
   
6.     # compare each key/value
   
7.     foreach $key ( sort keys %{$hasharray[0]} ) {
   
8.       if ( ${$hasharray[1]}{$key} eq ${$hasharray[0]}{$key} ) {
   
9.         next;
   
10.       } else {
    
11.         return 0;
    
12.       }
    
13.     }
    
14.   } else {
    
15.     return 0;
    
16.   }
    
17.   return 1;
    
18. }
    
19. 
    

复制代码

seacaptain

不错。由于时间仓促没考虑到连接符的问题。现修正如下
#!/usr/bin/perl
#使用三个参数。hashcompare hash1,hash2,分割符
sub hashcompare {
list(@hasharray,$sep)=@_;

my $key1str=join $sep,keys(%{$hasharray[0]});
my $key2str=join $sep,keys(%{$hasharray[1]});
if($key1str eq $key2str)
{
$val1str=join $sep,values(%{$hasharray[0]});
$val2str=join $sep,values(%{$hasharray[1]});
if($val1str eq $val2str)
{
return 1;
}
else
{
return 0;
}
}
}
%hash1=("one"=>;1,"two"=>;2);
%hash2=("one"=>;2,"two"=>;2);
if(hashcompare(\%hash1,\%hash2,"|")
{
print "两个hash相同\n";
}
else
{
print "两个hash不相同\n";
}

gunguymadman

将一个hash赋给一array，另一个hash赋另一个array，比较两个array不就行了 ？

seacaptain

比较array？好主意啊。其实我的方法就是借鉴了两个array比较的函数的实现

seacaptain

第三修订版
#!/usr/bin/perl
#http://search.cpan.org/CPAN/authors/id/D/DA/DAVECROSS/Array-Compare-1.09.tar.gz
use Array::Compare;

sub hashcompare {
@hasharray=@_;
my @array1=%{$hasharray[0]};
my @array2=%{$hasharray[1]};
foreach my $item (@array1) {
        print $item."\n";
}
my $comp = Array::Compare->;new;
$comp->;Sep('|');
$comp->;compare(\@array1, \@array2);
}
%hash1=("one"=>;1,"two"=>;2);
%hash2=("one"=>;2,"two"=>;2);
if(hashcompare(\%hash1,\%hash2))
{
print "两个hash相同\n";
}
else
{
print "两个hash不相同\n";
}

seacaptain

#!/usr/bin/perl
#http://search.cpan.org/CPAN/authors/id/D/DA/DAVECROSS/Array-Compare-1.09.tar.gz
use Array::Compare;

sub hashcompare {
@hasharray=@_;
my @array1=%{$hasharray[0]};
my @array2=%{$hasharray[1]};
foreach my $item (@array1) {
        print $item."\n";
}
my $comp = Array::Compare->;new;
$comp->;Sep('|');
$comp->;compare(\@array1, \@array2);
}
%hash1=("one"=>;1,"two"=>;2);
%hash2=("one"=>;2,"two"=>;2);
if(hashcompare(\%hash1,\%hash2))
{
print "两个hash相同\n";
}
else
{
print "两个hash不相同\n";
}