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