in reply to Parsing XML
use XML::Rules; my @rules = ( 'm:properties' => sub { my $p = $_[1]; print "Title : $p->{'d:Title'}\n"; print "Description: $p->{'d:Description'}\n"; }, _default => 'content', ); my $xr = XML::Rules->new( rules => \@rules, ); $xr->parse($xml);
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Parsing XML
by DanielSpaniel (Scribe) on Mar 13, 2013 at 21:15 UTC |