Perl XML解析器

Question

我有一个使用XML::Parser Perl模块解析的XML文件。代码解析XML：

.......................................... 
$parser = XML::Parser->new(Style => 'Tree'); 
$my_map = $parser->parse($xml); 
print Dumper($my_map->[1]) . "\n"; 

的print Dumper($my_map->[1])语句的结果：

$VAR1 = [ 
      {}, 
      0, 
      ' 
      ', 
      'lfs', 
      [ 
      { 
       'name' => 'ABC' 
      }, 
      0, 
      ' 
       ', 
      'FS', 
      [ 
       { 
       'status' => '1', 
       'acc' => '/tmp', 
       'kind' => 'ass' 
       } 
      ], 
      0, 
      ' 
      ' 
      ], 
      0, 
      ' 
      ', 
      'lfs', 
      [ 
      { 
       'name' => 'BCG' 
      }, 
      0, 
      ' 
       ', 
      'FS', 
      [ 
       { 
       'status' => '1', 
       'acc' => '/home/tmpspace/tmp1', 
       'kind' => 'oops' 
       } 
      ], 
      0, 
      ' 
       ', 
      'FS', 
      [ 
       { 
       'status' => '1', 
       'acc' => '/home/tmpspace/tmp2', 
       'kind' => 'hops' 
       } 
      ], 
      0, 
      ' 
      ' 
      ], 
      0, 
      ' 
      ', 
      'lfs', 
      [ 
      { 
       'name' => 'KMN' 
      }, 
      0, 
      ' 
       ', 
      'FS', 
      [ 
       { 
       'status' => '1', 
       'acc' => '/misc/ib', 
       'kind' => 'nops' 
       } 
      ], 
      0, 
      ' 
      ' 
      ], 
      0, 
      ' 
      ', 
      'lfs', 
      [ 
      { 
       'name' => 'MAIN' 
      }, 
      0, 
      ' 
       ', 
      'FS', 
      [ 
       { 
       'status' => '1', 
       'acc' => 'This is the string that I wanted.', 
       'kind' => 'mount' 
       } 
      ], 
      0, 
      ' 
      ' 
      ], 
      0, 
      ' 
    ' 
     ]; 

从$my_map->[1]，我希望得到'acc' => 'This is the string that I wanted.'。如何有效提取'acc' => 'This is the string that I wanted.'？

Answer 1

尝试这样做，每个迭代阵列级别：

use strict; use warnings; 

foreach my $first_level (@$VAR1) { 
    if(ref $first_level eq "ARRAY") { 
     foreach my $second_level (@{ $first_level }) { 
      if(ref $second_level eq "ARRAY") { 
       foreach my $third_level (@{ $second_level }) { 
        print $third_level->{acc}, "\n"; 
       } 
      } 
     } 
    } 
} 

Answer 2

而不是XML::Parser，我建议你考虑使用XML::LibXML来代替，然后使用XPath表示法来查找XML中的特定元素（通过findnodes()方法）。这样做可以让你获得XML文档中的特定节点，而不需要完全理解其完整结构（或者依赖于以特定方式格式化的源XML）。

XML :: LibXML是described here，而您可以在XPath notation here上获得更多信息。