XML parser

[Ivo Panacek]

On Pá, 2002-07-26 at 12:20, Zdenek Mazanec wrote:
> Ahojte,
>  snazim se parsovat XML v perlu pomoci XML::Parser (XML::Parser::Expat)
> 
> kod:
> use XML::Simple;    # XML Parser, for more info look up perldoc XML::Simple
> .....
> $xml=XMLin($xml);
> 
> ... kde $xml na prave sprave je XML kod
> 
> funguje celkem spravne, jen mi holomek vsechno enkoduje do UTF-16. Nevite
> nekdo, jak jej presvedcit k tomu, aby nenkodoval vubec a nechal vse tak, jak
> je na vstupu?

Nevim, ale umim dekodovat UTF:

use Unicode::Map();
use Unicode::String qw( utf8 utf16 );

$outputEncoding = "ISO-8859-2";
$DecodeMap = new Unicode::Map($outputEncoding);

sub decodeUTF8 { my $utf8 = shift;
    return $utf8 if $outputEncoding eq 'UTF-8';
    my $u = utf8( $utf8 );
    return $DecodeMap->from_unicode($u->utf16);
}

Ono to je delsi, ale tohle by melo postacit.

ivo