Perl：检查 hashref 键是否指向一个值或另一个 hashref

Question

鉴于以下两个 hashref 示例，以下将产生不同的输出，具体取决于 OrganizationName 键是包含值还是 Hash

示例 1：

$VAR1 = {
          'Address2' => {},
          'OrganizationName' => 'EXISTS',
          'Fax' => {}
        };

示例 2：

$VAR1 = {
          'Address2' => {},
          'OrganizationName' => {},
          'Fax' => {}
        };

对于第一个哈希：

my $org = $hashref->{'OrganizationName'};
print $org;

返回：组织名称

对于第二个哈希：

my $org = $hashref->{'OrganizationName'};
print $org;

返回：HASH(0x1ae17e0)

这是因为当“非空”键包含值时，“空”组织名称键包含哈希。

那么我如何测试 OrganizationName 键是否包含哈希，如果不继续？我想在不循环遍历Hash 中的键的情况下执行此操作，因为有很多键，而且似乎只有一个键是不必要的。

提前感谢您的帮助。

Answer 1

它不包含散列，它包含对散列的引用。您可以使用ref 轻松检查值是否为引用：

if ( ref $hashref->{OrganizationName} ) {
   print "OrganizationName contains a reference\n";
}

if ( ref $hashref->{OrganizationName} eq 'HASH' ) {
   print "OrganizationName contains a reference to a hash\n";
}