[Comm] Re: Perl unicode

[Alexey Tourbin]

On Fri, Oct 22, 2004 at 05:50:56PM +0300, Stanislav Yadykin wrote:
> А вот если
> -(~:$)-> perl "-MEncode('from_to')" -MText::Iconv -le 'my $text="текст"; from_to($text, "windows-1251", "utf8"); print Text::Iconv->new("utf8", "windows-1251")->convert($text)'
> текст

Да, так правильно.

> > Может быть дело в том, что XML::Stream использует
> > use open ':utf8'
> Смотрел, но подобного ничего нет.

$ rpm -qR perl-Net-Jabber |grep Stream
perl(XML/Stream.pm) >= 0:1.18
$ rpm -ql perl-XML-Stream |xargs grep utf8
/usr/lib/perl5/vendor_perl/XML/Stream.pm:        eval("use open ':utf8';");
/usr/lib/perl5/vendor_perl/XML/Stream/Parser.pm:        eval("use open ':utf8';");
/usr/lib/perl5/vendor_perl/XML/Stream/Parser.pm:        open(FILE,"<:utf8",$fileName);
/usr/share/doc/perl-XML-Stream-1.21/CHANGES:    that the outgoing data is utf8.
$

> -- 
> Stanislav Yadykin
> ALT Linux Team
----------- следущая часть -----------
Было удалено вложение не в текстовом формате...
Имя     : отсутствует
Тип     : application/pgp-signature
Размер  : 189 байтов
Описание: отсутствует
Url     : http://lists.altlinux.ru/pipermail/community/attachments/20041022/6bd38e19/attachment.bin