- or download this
use XML::LibXML;
my $str = "<flower>r\x{16f}\x{17e}e</flower>";
my $doc = XML::LibXML->new->parse_string($str);
warn "Document ", $doc->toString, "\n";
warn "Encoding ", $doc->encoding, "\n";
- or download this
Document <?xml version="1.0"?>
<flower>růže</flower>
Encoding
- or download this
$doc->setEncoding('iso-8859-1')
- or download this
use XML::LibXML;
my $str = '<?xml version="1.0" encoding="utf8"?>'
...
$doc->setEncoding('iso-8859-1');
warn "Document ", $doc->toString, "\n";
warn "Encoding ", $doc->encoding, "\n";
- or download this
Document <?xml version="1.0" encoding="utf8"?>
<flower>rĹŻĹže</flower>
...
<flower>růže</flower>
Encoding iso-8859-1