如何在Perl中比较两个哈希值,而不使用Data :: Compare？

最好的方法根据你的目的不同. Sinan提到的FAQ项目是一个很好的资源： How do I test whether two arrays or hashes are equal?.在开发和调试(当然编写单元测试)时,我发现 Test::More在比​​较数组,散列和复杂数据结构时是有用的.一个简单的例子：

use Strict;
use warnings;

my %some_data = (
    a => [1,2,'x'],b => { foo => 'bar',biz => 'buz' },j => '867-5309',);

my %other_data = (
    a => [1,j => '867-5309x',);

use Test::More tests => 1;
is_deeply(\%other_data,\%some_data,'data structures should be the same');

输出：

1..1
not ok 1 - data structures should be the same
#   Failed test 'data structures should be the same'
#   at _x.pl line 19.
#     Structures begin differing at:
#          $got->{j} = '867-5309x'
#     $expected->{j} = '867-5309'
# Looks like you failed 1 test of 1.