http://www.perlmonks.org?node_id=1229248


in reply to TWig handler generation

Hello nico38100

A dispatch table is useful as an hash reference is the only think the twig_handler wants:

use strict; use warnings; use XML::Twig; my %dispatch = ( # <-- build it.. to => sub {$_->delete;}, from => sub {$_->set_text( uc($_->trimmed_text) ); $_->flush}, ); my $twig=XML::Twig->new( twig_handlers => \%dispatch , # <-- ..use it! pretty_print => 'indented', ); $twig->parse( *DATA ); __DATA__ <note> <to>Tove</to> <from>Jani</from> <heading>Reminder</heading> <body>Don't forget me this weekend!</body> </note> #OUT <note> <from>JANI</from> <heading>Reminder</heading> <body>Don't forget me this weekend!</body> </note>

L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.