[ новости /+++ | форум | теги | ]

<< Предыдущая ИНДЕКС Поиск в статьях src Установить закладку Перейти на закладку Следующая >>

Ключевые слова: 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());
}
  

<< Предыдущая ИНДЕКС Поиск в статьях src Установить закладку Перейти на закладку Следующая >>

1, Oleg (?), 16:12, 09/11/2002 [ответить]   +/– Не рекомендую использовать предложенный метод - использование original_string приводит к неуловимым багам.   2, Simple Guy (?), 12:56, 10/09/2004 [ответить]   +/– Большое спасибо, я долго мучался с этой проблемой, но это imho едиственное грамотное решение.

Партнёры:

Хостинг: