我应该如何使用 XML::Simple 处理未定义的引用？

Question

我正在使用这些选项使用 XML::Simple 解析 XML 文件

my $xml = XML::Simple->new(ForceArray => 1, KeyAttr => 1, KeepRoot => 1);

这是一个示例 xml 文档

<ip>
    <hostname>foo</hostname>
    <info>server</info>
    <soluton>N/A</solution>
    <cats>
        <cat>
            <title>Baz</title>
            <flags>0</flags>
        </cat>
        <cat><title>FooBar</title></cat>
    </cats>
</ip>
<ip>
    <info>client</info>
    <diagnosis>N/A</diagnosis>
    <cats>
        <cat><title>Foo</title></cat>
        <cat>
            <title>Bar</title>
            <update>Date</update>
        </cat>
    </cats>
</ip>

如您所见，并非每个节点都有主机名属性，这会导致我的脚本因“无法使用未定义的值”而终止当我尝试获取主机名时，出现“作为 ARRAY 引用”错误

   $nb = "@{ $_->{hostname} }";

xml 中有几个可选元素（十多个）。我该怎么处理？ 我应该在分配之前检查元素是否存在吗？

if ( @{ $_->{hostname} ) { $nb = "@{ $_->{hostname} }" }
if ( @{ $_->{solution} ) { $s  = "@{ $_->{solution} }" }
if ( @{ $_->{diagnosis} ) {...}

我应该使用 eval 块吗？

eval { $nb = "@{ $_->{hostname} }" };

也许

eval {
    $nb = "@{ $_->{hostname} }";
    $s  = "@{ $_->{solution} }";
    $d  = "@{ $_->{diagnosis} }";
};

有更好的方法吗？

Answer 1

首先，您真的需要启用“ForceArray”选项吗？也许最好使用标量值并检查它们（可能）所在的数组？

我使用的对可能未定义的数组的引用的解决方案是：

my $string = join '', @{ $var || [] };

这意味着“取消引用变量或空匿名 arrayref”。

在你的情况下它将是

$nb = join '', @{ $_->{hostname} || [] };