Help for this page

Select Code to Download

Select or download this

perl -MXML::Parser -e '$p=XML::Parser->new(Handlers=>{Char=>sub{print 
+"$_[1] "}});
   $p->parsefile("filename.xml")'

Select or download this

perl -MXML::Parser -e '$p=XML::Parser->new(Handlers=>
  {Char=>sub{($_=$_[1])=~tr/ \n/ /s; s/^ +$//; print}});
  $p->parsefile("filename.xml"); print "\n"'