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