Perl，使用 XML::Simple 解析 XML 但存在问题

Question

我正在 Perl 中解析 xml 文件，并且一切似乎都可以很好地解决一个问题。我有具有相同架构的文件，但它们从解析器返回不同类型的数据。这是一个简化的示例：

<tests>
       <test>
          <data1>Hi</data1>
          <data2>Hello</data2>
       </test>
       <test>
          <data1>Hi2</data1>
          <data2>Hello2</data2>
       </test>
  </tests>

在转储中，这将返回以下内容：（请注意 test 是两个哈希值的数组）

$VAR1 = {
          'test' => [
                    {
                      'data2' => 'Hello',
                      'data1' => 'Hi'
                    },
                    {
                      'data2' => 'Hello2',
                      'data1' => 'Hi2'
                    }
                  ]
        };

现在，对于一组类似的数据，但只有一个“测试”实体，如下所示：

  <tests>
       <test>
          <data1>Hi</data1>
          <data2>Hello</data2>
       </test>
  </tests>

这将返回类似的结果数据，除了测试实体不再是一个数组，而是一个单一的散列：

$VAR1 = {
          'test' => {
                    'data2' => 'Hello',
                    'data1' => 'Hi'
                  }
        };

我的困境是我的代码需要一个数组，因为这是常态。但是，当只有一个实体时，它会返回该实体的哈希值。我的问题是，如何处理哈希实体，就像它是一个数组一样。或者测试一下？

现在，我用于检索数组的代码如下：

foreach $test (@{$data->{'tests'}->{'test'}})
{
   do something with $test
}

但是使用哈希时，它会给出错误“不是数组引用”。我希望这是足够的细节！谢谢！！！

Answer 1

也许 ForceArray 选项的替代形式正是您想要的？

ForceArray =>; [姓名]

“ForceArray”选项的这种替代（也是首选）形式
允许您指定应该始终是的元素名称列表
强制采用数组表示形式，而不是“全有或全无”
方法如上。

也可以（自版本 2.05 起）包含已编译的常规
列表中的表达式 - 与模式匹配的任何元素名称
将被强制转换为数组。如果列表仅包含一个正则表达式，
那么就没有必要将其包含在 arrayref 中。例如：

ForceArray =>; qr/_list$/

所以我可能会尝试：

ForceArray => ['test']

Answer 2

XML::Simple

ForceArray => 1

此选项应设置为“1”以强制嵌套元素
即使只有一个也表示为数组

Answer 3

您需要使用哈希符号“%”来取消引用哈希。

Answer 4

虽然看起来您可以使 XML 解析器的行为更加一致，但让您的代码处理变体输出也不困难。

Perl 内置函数“ref”可用于确定引用引用的对象类型。

您的原始代码是

foreach $test (@{$data->{'tests'}->{'test'}})
{
    do something with $test
}

（而不是编写 $data->{'tests'}->{'test'} ，我倾向于使用更紧凑的 $$data{tests}{test} ，所以我将使用在我的例子中。）

我们可以检查引用类型并使用它来将所有可能性推入一个数组中，所以

foreach $test (
    (ref($data{tests}{test}) eq 'ARRAY') ? (
        @{$data{tests}{test}}
    ) : (
        $data{tests}{test}
    )
)
{
    do something with $test
}