Help for this page

Select Code to Download


  1. or download this
    use 5.014;
use warnings;
...
my $doc = XMLin($xml, ForceArray => 1,KeyAttr => [ ]);

say sprintf "%vX", $doc;
  2. or download this
    $ perl a.pl a_latin1.xml
E9

$ perl a.pl a_utf8.xml
E9