Perl：使用XML處理重複元素名稱:: SAX

Question

如何處理perl XML :: SAX模塊中的重複元素名稱？以下是我的xml文件：

<employees> 
    <employee> 
     <name>John</name> 
     <age>gg</age> 
     <department>Operations</department> 
     <amount Ccy="EUR">100</amount> 
     <company> 
      <name> abc </name> 
     </company> 
    </employee> 
    <employee> 
     <name>Larry</name> 
     <age>45</age> 
     <department>Accounts</department> 
     <amount Ccy="EUR">200</amount> 
     <company> 
      <name> xyz </name> 
     </company> 
    </employee> 
</employees> 

我的問題是如何訪問元素employees->員工 - >公司 - >名字？ （我應該能夠打印「abc」和「xyz」），我這樣問的原因是因爲員工 - >員工 - >名稱中還有一個'名稱'元素，我想跳過。我只想使用XML :: SAX，因爲我的環境只支持這個模塊。請幫忙。非常感謝。

Answer 1

使用棧來記錄哪些節點你內push荷蘭國際集團每次進入一個節點的時間，以及荷蘭國際集團pop每次你離開一個節點：

#!/usr/bin/perl 
use strict; 
use warnings; 
use Data::Dumper; 
use XML::SAX::ParserFactory; 
use XML::SAX::PurePerl; 

my (@nodes, $characters, @names); 

my $factory = new XML::SAX::ParserFactory; 
my $handler = new XML::SAX::PurePerl; 
my $parser = $factory->parser(
        Handler => $handler, 
        Methods => { 
        start_element => sub { 
         push @nodes, shift->{LocalName}; 
        }, 
        characters => sub { 
         $characters = shift->{Data}; 
        }, 
        end_element => sub { 
         if (shift->{LocalName} eq 'name' && $nodes[-2] eq 'company') { 
          push @names, $characters; 
         } 
         pop @nodes; 
        } 
       } 
      ); 
$parser->parse_uri("sample2.xml"); 

print Dumper \@names; 

輸出：

$VAR1 = [ 
      ' abc ', 
      ' xyz ' 
     ]; 

$nodes[-2]是倒數第二個元素@nodes，將解析爲「員工」或「公司」時shift->{LocalName}等於「名」