Help for this page

Select Code to Download


  1. or download this
    $ perl -CSDA -MEncode -MXML::Parser -E'XML::Parser->new(Handlers => { 
    +Char => sub { print "$_[1]" } })->parse(encode($ARGV[0], qq{<?xml ver
    +sion="1.0" encoding="$ARGV[0]"?><root>\xC9ric\n</root>}));' iso-8859-
    +1
    Éric
    
    $ perl -CSDA -MEncode -MXML::Parser -E'XML::Parser->new(Handlers => { 
    +Char => sub { print "$_[1]" } })->parse(encode($ARGV[0], qq{<?xml ver
    +sion="1.0" encoding="$ARGV[0]"?><root>\xC9ric\n</root>}));' UTF-8
    Éric
    
  2. or download this
    use Devel::Peek;
    Dump($s);
    
  3. or download this
    {
       use Data::Dumper;
       local $Data::Dumper::Useqq = 1;
       print(Dumper($s));
    }