[Comm] Re: Perl unicode

[Alexey Tourbin]

On Thu, Oct 21, 2004 at 12:18:27PM +0300, Stanislav Yadykin wrote:
> При отсылке жаббером текста "тест", проходя через этот "жаббер-прокси" 
> приходит в виде "??,??µ??????,", т.е. почему-то проходит двойную конертацию в 
> юникод. Если процедуру JabberGetMessage переписать в виде 
> 
> sub JabberGetMessage {
>   my $id = shift;
>   my $message = shift;
>   $jabber->MessageSend(
>     To => 'newuser на newhost',
>     Subject => $message->GetSubject,
>     Body => $message->GetBody
>   )
> }
> 
> то к клиенту возвращается нормальный "тест". В чем может быть проблема?

Лучше не использовать Text::Iconv вместе с нативным utf8.
По крайней мере нижеследующее у меня не работает:

$ perl -MText::Iconv -le 'my $text="текст"; utf8::encode $text; print Text::Iconv->new("utf8", "windows-1251")->convert($text)'

$

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

Кто знает...

> -- 
> Stanislav Yadykin
----------- УМЕДХЭБС ЮБУФШ -----------
Было удалено вложение не в текстовом формате...
Имя     : отсутствует
Тип     : application/pgp-signature
Размер  : 189 байтов
Описание: отсутствует
Url     : http://lists.altlinux.ru/pipermail/community/attachments/20041022/3f4aa13a/attachment.bin