Perl简单的XML问题

Question

我正在尝试解析我创建的简单XML文件...它看起来像这样：

<project name="AU" date="2/2/2011" location="proj1">
  <GenomeList name="Processed">
    <genome name="AU4" />
  </GenomeList>
  <GenomeList name="Unprocessed">
      <genome name="AU1" />
      <genome name="AU2" />
      <genome name="AU3" />
  </GenomeList>
</project>

我遇到的问题是基因组列表的解析：似乎当列表中只有一个元素时，它会以不同的方式添加条目，如下所示：

'Unprocessed' => {
                  'genome' => {
                              'AU2' => {},
                              'AU3' => {},
                              'AU1' => {}
                              }
                 },
'Processed' => {
                'genome' => {
                            'name' => 'AU4'
                            }
               }

有什么办法可以使我以一致的方式进行解析？

我尝试使用valueAttr，但似乎没有用

谢谢

Answer 1

使用XML :: Simple是一个非常普遍的问题，所以我猜这就是您正在使用的。 ForceArray可能会做您想要的。 参见下面的示例和输出； 第三个打印语句应执行您想要的操作。 请注意，一旦您的用法超出了琐碎且可预测的输入/输出内容，XML :: Simple绝对不是简单的。 如果要使用它，请不要停止阅读“简单”一词的文档。

XML :: LibXML或XML :: Twig也是值得学习的。

use warnings;
use strict;
use XML::Simple;
use Data::Dumper;
$Data::Dumper::Terse = 1;
$Data::Dumper::Indent = 1;

my $multi = <<"";
<project name="AU" date="2/2/2011" location="proj1">
  <GenomeList name="Processed">
    <genome name="AU4" />
  </GenomeList>
  <GenomeList name="Unprocessed">
      <genome name="AU1" />
      <genome name="AU2" />
      <genome name="AU3" />
  </GenomeList>
</project>

my $single = <<"";
<project name="AU" date="2/2/2011" location="proj1">
  <GenomeList name="Processed">
    <genome name="AU4" />
  </GenomeList>
  <GenomeList name="Unprocessed">
      <genome name="AU1" />
  </GenomeList>
</project>

print Dumper( XMLin($multi) );
print Dumper( XMLin($single) );
print Dumper( XMLin( $single, ForceArray => 1 ) );