First page Back Continue Last page Overview Graphics
Example 3: code
#!/usr/bin/perl
use strict;
use warnings;
use XML::Twig;
my $CATALOG_FILE = "plant_catalog.xml";
my $UPDATE_FILE = "updates.xml";
my $updates= XML::Twig->new->parsefile( $UPDATE_FILE);
my $catalog= XML::Twig->new( # element => subroutine
twig_handlers => { plant => \&plant, },
pretty_print => 'indented',
);
$catalog->parsefile( $CATALOG_FILE);
$catalog->flush;
exit;