[Comm] Re: Perl unicode

[Alexey Tourbin <at@altlinux.ru>]

[-- Attachment #1: Type: text/plain, Size: 952 bytes --]

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

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]