use warnings; use strict; use XML::Twig; my $str = <<EOF; <foo> <!-- Dog section --> <object type="Dog" > <property name="id" value="0" /> <property name="name" value="REX" /> <property name="status" value="alive" /> <property name="mode" value="owned" /> <property name="dog_breed_id" value="0" /> <property name="dog_breed_name" value="Husky" /> <property name="capacity" value="105" /> <property name="size" value="big" /> <property name="location" value="canada" /> </object > </foo> EOF my $t = XML::Twig->new( twig_handlers => { object => \&woof } ); $t->parse($str); sub woof { my ($t, $obj) = @_; if ($obj->att('type') eq 'Dog') { my $name; my $id; my $bname; for my $prop ($obj->children('property')) { $name = $prop->att('value') if $prop->att('name') eq 'nam +e'; $id = $prop->att('value') if $prop->att('name') eq 'dog +_breed_id'; $bname = $prop->att('value') if $prop->att('name') eq 'dog +_breed_name'; } print "$name,$id,$bname\n"; } } __END__ REX,0,Husky
In reply to Re: XML::Parser using stream
by toolic
in thread Solved: XML::Parser using stream (used XML:Rules)
by Falantar
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |