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