使用XML :: Parser包含父節點

Question

我想修改一個我在線發現的使用XML :: Parser標識XML文檔的獨特元素以及每個元素髮生次數的Perl腳本。 Perl腳本及其文檔可以發現here：

use strict; 
use warnings; 

use XML::Parser; 
use File::Find; 

@ARGV or die "usage: xmlelements DIR [DIR ...]\n"; 

my %element_count; 

my $parser = XML::Parser->new(
    Handlers => { 
     Start => \&start_element, 
    }, 
); 

find \&process_xml, @ARGV; 
print "$_ ($element_count{ $_ })\n" 
    for sort keys %element_count; 
exit; 


sub process_xml { 
    $parser->parsefile($_) 
     if substr($_, -4) eq '.xml' and -f; 
} 

sub start_element { 
    my ($expat, $element, @attrval) = @_; 
    $element_count{ $element }++; 
} 

這產生一個輸出像這樣：

Account (15614) 
Account_No (15504) 
Active (15614) 
Activity (6658) 
Address (28098) 
Address_1 (27548) 
Address_2 (2033) 
Address_3 (62) 
Address_City (15) 

我的問題是我怎麼也包括在輸出中的父節點？

Answer 1

父節點名稱由current_element給出，所以$name= $expat->current_element . '/' . $element和voilà！如果你想避免空父名的警告，使用my $parent= $expat->current_element || ''; $name = "$parent/$element";

所以處理變得這樣的：

sub start_element { 
    my ($expat, $element, @attrval) = @_; 
    my $parent= $expat->current_element || ''; 
    my $name= "$parent/$element"; 
    $element_count{$name}++; 
}