在 Perl 中测试不同类型的哈希值？

Question

我正在编写一个小型 Perl 脚本，它通过 XML::Simple 遍历 XML 文件。

my $xml = new XML::Simple;
my $detail= $xml->XMLin($xml_local);

有时，XML 中元素的内容是空的。

当 XML 中的元素中没有内容时，我尝试使用以下方法打印内容：

print $detail->{Parsing}->{Through}->{XML}->{ElementContents}

我得到输出：

HASH(0x18948c4)

......或类似的东西...... ..唯一的区别是 () 之间的字符

我想测试内容是否为空并将变量默认为其他内容 - 也许 '' 或 "" - 除了哈希引用/地址/无论是什么之外的任何内容。

我尝试了这个，但收到一个错误，它不是数组引用：

print $detail->{Parsing}->{Through}->{XML}->{ElementContents}[0]

---

UPDATE

使用 Data::Dumper 输出其中一个元素：

'something' => [
           {
             'somedetail' => '',
             'somedetail' => '',
             'somedetail' => 'http://www.google.com'
             'somedetail' => 'google',
             'somedetail' => '1',
             'somedetail' => '01/21/02'
           },

如何使用 Perl 测试这些 '' 空字符串？除非启用了某些过滤，否则它们将以 HASH(0x18948c4) 形式返回。

Answer 1

它打印 HASH(0x18948c4) 的原因是因为该值的内容实际上不是空的，而是一个 hashref。当您打印某些内容时，Perl 会尝试对该内容进行字符串化，哈希引用的字符串化结果是 HASH(address)，其中地址是实际哈希的地址。

打印该哈希引用的实际内容，如下所示：

use Data::Dumper;
print Data::Dumper->Dump([$detail->{Parsing}->{Through}->{XML}->{ElementContents}]);

如果如您所说“没有内容”，则它可能是一个空哈希引用：

$VAR1 = {};

如果是这样，您可以通过以下方式检查它：

if (ref($detail->{Parsing}->{Through}->{XML}->{ElementContents}) eq ref({})
  && !keys %{ $detail->{Parsing}->{Through}->{XML}->{ElementContents} })
    print "No contents, empty hashref";
}

第一个条件确保它是一个哈希引用，第二个条件是取消引用产生的哈希值有零个元素作为其键 - 这意味着它是一个被引用的空哈希值。

但是，根据我对 XML::Simple 的记忆，我严重怀疑它是一个空哈希 - 并且如上所示执行 Data::Dumper 打印将向您展示如何处理它。您应该始终以这种方式打印出未知的数据结构，以弄清楚如何处理它们。

例如，如果您的 Data::Dumper 输出是：

$VAR1 = {
          'a' => 1
        };

那么您需要打印 $detail->{Parsing}->{Through}->{XML}->{ElementContents}->{a显然。再次强调，要小心只打印标量而不是 arrayref 或 hashref，因此根据需要深入数据结构以获得标量。

Answer 2

这是 DVK 答案的修改版本，对我有用：

if (ref($detail->{Parsing}->{Through}->{XML}->{ElementContents}) eq ref({}))
{
    ...empty element content...
}

我需要删除他给我的 if(condition1 && condition2) 语句的第二个条件。