perl – 比较两个哈希值与混合类型的值

发布时间：2020-12-15 21:55:33 所属栏目：大数据来源：网络整理

导读：如果第二个哈希中的键值对相同??,我想比较哈希值.我不想使用smartmatch,因为它会发出警告. 比较两个哈希与整数,字符串以及可能还有数组的最佳方法是什么？ use warnings;use diagnostics;my $hash1={"key_str"="a string","key_int"=4};my $hash2={"key_str"

如果第二个哈希中的键值对相同??,我想比较哈希值.我不想使用smartmatch,因为它会发出警告.

比较两个哈希与整数,字符串以及可能还有数组的最佳方法是什么？

use warnings;
use diagnostics;

my $hash1={"key_str"=>"a string","key_int"=>4};
my $hash2={"key_str"=>"b string","key_int"=>2};

foreach my $key ( keys(%$hash1) ) {
    if ($hash1->{$key} != $hash2->{$key}) {
        print($key);
    }
}

预期的输出是：

Argument "b string" isn't numeric in numeric ne (!=) at hash_compare.pl line 8 (#1)
    (W numeric) The indicated string was fed as an argument to an operator
    that expected a numeric value instead.  If you're fortunate the message
    will identify which operator was so unfortunate.

Argument "a string" isn't numeric in numeric ne (!=) at hash_compare.pl line 8 (#1)

解决方法

首先,Perl没有类型.它不区分字符串和数字(??在外面).

此外,它在这个级别上的数字和字符串之间没有区别.如果你检查更大或更小的数字上下文和字符串上下文很重要.考虑一下：

my $foo = 200;
my $bar = 99;
print $foo > $bar ? $foo : $bar;

显然它将打印200,因为200在数值上大于99.

my $foo = 200;
my $bar = 99;
print $foo gt $bar ? $foo : $bar;

但是这将打印99,因为9是字母数字(如字符串中)大于2.它比较了字符的代码点数.

但是,如果您只想检查不平等,那么ne运算符就可以了.即使你不确定输入中是否还有数字以外的东西.

foreach my $key ( keys(%$hash1) ) {
    if ($hash1->{$key} ne $hash2->{$key}) {
        print($key);
    }
}

eq(和ne)非常聪明,可以看出一个数字最初是一个字符串还是一个没有引号的数字,因为它们的内部表示不同.

警告,技术细节未来.

标量值保存在_SV_s中.这些术语可以包含不同的东西.对于称为IV的简单整数,有一种特殊的内部类型,还有一种称为PV的字符串.当你在字符串中使用数字时,Perl会根据需要在这两者之间进行内部转换,反之亦然.

您可以使用Dump从Devel::Peek获取有关数据内部表示的一些调试信息.

use Devel::Peek;

Dump("01");
Dump(01);

这将输出：

SV = PV(0x19560d0) at 0x19327d0
  REFCNT = 1
  FLAGS = (POK,READONLY,IsCOW,pPOK)
  PV = 0x1c94fd0 "01"
  CUR = 2
  LEN = 10
  COW_REFCNT = 0
SV = IV(0x19739b0) at 0x19739c0
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 1

如您所见,第一个是字符串,第二个是数字.
但如果我们这样做

print "01" eq 01;

没有输出,因为01是一个整数,并将转换为“1”进行比较.由于“01”的0不等于1,因此不会打印任何内容.

如果数据结构的值更复杂,则需要遍历结构.每种类型的元素都需要有自己的处理.可能有数组引用,哈希引用,标量引用,标量,glob引用,dualvars等.可能有您想特别对待的对象.

我建议看看Test::Deep是如何实现这一点的.如果您决定在生产代码中使用它(而不是单元测试),则可以使用Test::Deep::NoTest.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!