Help for this page

Select Code to Download


  1. or download this
    perl -MXML::Twig -e "BEGIN{$f=shift @ARGV}
    
    ...
    
    " current_catalog.xml new_items.xml
    
  2. or download this
    
    perl -MXML::Twig -e "map{$t=XML::Twig->new(twig_handlers=>{$s?('catalo
    +g'=>sub{foreach$c(@c){$c->paste(last_child=>$_)}}):('newitems/book'=>
    +sub{push@c,$_;$_->cut})})->parsefile($_);$s++;}@ARGV;$t->flush"  newb
    +ook.xml catalog.xml