数组的perl数组，缺少元素

Question

我正在尝试从嵌套树结构的xml字符串生成数组。

但是，当我生成参考变量$output时，B1中的一些元素缺失（C1、D1、D2）。CCD_ 2是使用XML::LibXML::Readercpan模块生成的。

use strict;
use warnings;
use Data::Dumper;
use v5.10;
my $test = "start, /root/class1, A1
start, /root/class1/class2, B1
start, /root/class1/class2/class3, C1
start, /root/class1/class2/class3/class4, D1
end, /root/class1/class2/class3/class4, D1
start, /root/class1/class2/class3/class4, D2
end, /root/class1/class2/class3/class4, D2
end, /root/class1/class2/class3, C1
end, /root/class1/class2, B1
start, /root/class1/class2, B2
start, /root/class1/class2/class3, C2
start, /root/class1/class2/class3/class4, D1
end, /root/class1/class2/class3/class4, D1
start, /root/class1/class2/class3/class4, D2
end, /root/class1/class2/class3/class4, D2
start, /root/class1/class2/class3/class4, D3
end, /root/class1/class2/class3/class4, D3
end, /root/class1/class2/class3, C2
end, /root/class1/class2, B2
end, /root/class1, A1";
our $x = 0;
my $output = generator($test); 
say "Output: ". Dumper $output;
sub generator{
    my ($classes, $x, $subout) = (shift, shift, '');
    my @out;
    $x += 1;
    while($classes =~ /(start(.+?class$x, (w+))n(.*?)end2)/gsi){
        my ($data1, $value, $rest) = ($1, $3, $4);
        $subout = generator($rest,$x) if $rest;
        push @out, $value;
    }
    push @out, $subout if $subout;
#   say "X: $x ". Dumper @out;
    return @out;
}

输出为：

Output: $VAR1 = [
          'A1',
          [
            'B1',
            'B2',
            [
              'C2',
              [
                'D1',
                'D2',
                'D3'
              ]
            ]
          ]
        ];

我是不是错过了什么？任何其他创建数据结构的方法也很有用。

xml:

<?xml version="1.0" encoding="UTF-8"?>
<root>
<class1 name="A1">
 <class2 name="B1">
  <class3 name="C1">
   <class4 name="D1">
   </class4>
   <class4 name="D2">
   </class4>
  </class3>
 </class2>
<class2 name="B2">
 <class3 name="C2">
  <class4 name="D1">
  </class4>
  <class4 name="D2">
  </class4>
  <class4 name="D3">
  </class4>
 </class3>
</class2>
</class1>
</root>

Answer 1

此代码将按照您的要求执行。但这基本上就是糟糕的XML::Simple试图做的。它会丢失信息，而使用通用的XML文档是不可能的

use strict;
use warnings 'all';
use XML::LibXML::Reader;
use constant XML_FILE => 'root.xml';
my %data;
my @stack = (%data);
my $reader = XML::LibXML::Reader->new(location => XML_FILE);
while ( $reader->read ) {
    my $type = $reader->nodeType;
    if ( $type == XML_READER_TYPE_ELEMENT ) {
        next unless my $name = $reader->getAttribute('name');
        push @stack, ($stack[-1]{$name} = {});
    }
    elsif ( $type == XML_READER_TYPE_END_ELEMENT ) {
        pop @stack if $reader->getAttribute('name');
    }
}
use Data::Dump;
dd %data;

输出

{
  A1 => {
          B1 => { C1 => { D1 => {}, D2 => {} } },
          B2 => { C2 => { D1 => {}, D2 => {}, D3 => {} } },
        },
}