|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Turuntsev V.V. 2:5020/400 30 Nov 2004 13:51:00
To : yurik shestakov
Subject : Re: Как сделать что бы XML::Parser на выходе КОИ8 рисовал?
--------------------------------------------------------------------------------
yurik shestakov wrote:
> On Mon, Nov 29, 2004 at 10:56:22AM +0000, Turuntsev V.V. wrote:
> TVV>
> TVV>
> TVV> Сабж. пытаюсь использовать XML::Parser
> TVV> XML::Parser::Encoding установил.
> TVV> В исходном xml файле в заголовке стоит encoding="KOI8-R"
> TVV> Документ читается, well formed.
> TVV> А на выходе хня какая то, юникод что ли?
> TVV> А хочется то кои!
>
> Все верно, после XML::Parser ты получает строки с unicode-кодировкой внутри.
> Для того, что сделать вывод print в koi8-r, нужно изобразить:
>
> binmode STDOUT, ":encoding(koi8-r)";
>
Вот так еще можно сделать (правда не знаю насколько это кошерно):
use XML::DOM;
use Unicode::MapUTF8 qw(from_utf8 utf8_supported_charset);
my $parser = new XML::DOM::Parser;
my $doc = $parser->parsefile("file.xml");
my @doc = $doc->toString;
my $out = from_utf8({ -string => @doc, -charset => 'koi8-r' });
print $out;
$doc->dispose;
--- ifmail v.2.15dev5.3
* Origin: InPharmTech (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
