Ключевые слова:charset, xml, unicode, perl, (найти похожие документы)
Date: Mon, 09 Sep 2002 20:44:54 +0600
From: Anthony Dragunov <Anthony_Dragunov@p111.f1.n5010.z2.fidonet.org>
Newsgroups: ftn.ru.perl
Subject: Как изменить кодировку результата выводимого XML::Parser
AS> Hо выявилась дpyгая засада - pезyльтат паpсинга
AS> выдается в юникоде. Чем бы его пеpекодиpовать обpатно в 1251?
с XML::Parser::Expat : (в принципе для XML::Parser это везде справедливо)
my $self = new XML::Parser::Expat();
bless($self, $class);
$self->setHandlers(
'Char' => \&char,
);
...
sub char {
my ($self, $el) = @_;
$self->Pos->Insert($self->original_string());
}