http://qs321.pair.com?node_id=593455


in reply to Perl and XPath.

use XML::Rules;
my $parser = XML::Rules->new(
 rules => {
  message => sub {
    print $_[1]->{author}, "\n\n";
   }
 }
);
$parser->parse('pm.xml');

[download]

Oh, you wanted XPath, never mind ;-)

Jenda
Support Denmark!
Defend the free world!

In Section Seekers of Perl Wisdom