XML :: Parser打印单个属性值

Question

我正在解析一个XML文件，并且该文件具有这样的节点。

<product id="12345" model="dvd" section="cmp" img="junk.jpg"></product> 

这是我的代码。我需要打印所有产品的id属性的值。

use XML::Parser; 
my $parser = XML::Parser->new(Handlers => { Start => \&handle_start }); 
$parser->parsefile('D:\Project\mob.xml'); 

sub handle_start { 
    my ($expat, $element, %attrs) = @_; 
    if ($element eq 'product') { 
     print $element; 
    } 
} 

Answer 1

既然你在%attrs哈希id，你只需要打印：

sub handle_start { 
    my ($expat, $element, %attrs) = @_; 
    if ($element eq 'product') { 
     print $attrs{id}, "\n"; 
    } 
} 

XML::Parser是低级语法分析器。如果您会考虑使用一个具有更复杂的API，尝试XML::Twig：

use warnings; 
use strict; 
use XML::Twig; 

my $xml = <<XML; 
<product id="12345" model="dvd" section="cmp" img="junk.jpg"></product> 
XML 

my $twig = XML::Twig->new(
    twig_handlers => { product => sub { print $_->att('id'), "\n" } }, 
); 
$twig->parse($xml);