在 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]

---

更新

使用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) 其中地址是实际哈希的地址。

按如下方式打印该 hashref 的实际内容：

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

如果如你所说的“没有内容”，它可能是一个空的 hashref：

$VAR1 = {};

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

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

第一个条件确保它是一个 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) 语句的第二个条件。