Как изменить кодировку результата выводимого XML::Parser (charset xml unicode perl)
Ключевые слова: charset, xml, unicode, perl, (найти похожие документы)
Date: Mon, 09 Sep 2002 20:44:54 +0600
From: Anthony Dragunov <[email protected]>
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());
}
1, Oleg (?), 16:12, 09/11/2002 [ответить]
| +/– |
Не рекомендую использовать предложенный метод - использование original_string приводит к неуловимым багам. | |
2, Simple Guy (?), 12:56, 10/09/2004 [ответить]
| +/– |
Большое спасибо, я долго мучался
с этой проблемой, но это imho
едиственное грамотное решение. | |
|