[Comm] Perl unicode

[Stanislav Yadykin]

п■п╬п╠я─я▀п╧ п╢п╣п╫я▄!
п÷п╬я│п╨п╬п╩я▄п╨я┐ я┐ п╪п╬п╣пЁп╬ п╟п©п╩п╦п╫п╨п╟ п╡я─п╣п╪п╣п╫п╫п╟я▐ п©я─п╬п╠п╩п╣п╪п╟ я│ ru.perl, я─п╣я┬п╦п╩ п╫п╟п©п╦я│п╟я┌я▄ я│я▌п╢п╟, 
п╡п╬п╥п╪п╬п╤п╫п╬ п╨я┌п╬-я┌п╬ я│я┌п╟п╩п╨п╦п╡п╟п╩я│я▐/п╥п╫п╟п╣я┌.
п∙я│я┌я▄ п©я─п╬пЁя─п╟п╪п╪п╟:
==============================
use Net::Jabber qw(Client);
use Text::Iconv;

my $jabber = new Net::Jabber::Client;
$jabber->Connect(hostname => 'host');
my @status = $jabber->AuthSend(
  'username'  => 'user',
  'password'  => 'password',
  'resource'  => 'client'
);
$jabber->PresenceSend('type' => 'available');
$jabber->SetCallBacks('message' => \&JabberGetMessage);

while($jabber->Process){ 1; }

sub fUni {
  my $conv = Text::Iconv->new('utf8', 'windows-1251');
  return $conv->convert(shift);
}
sub tUni {
  my $conv = Text::Iconv->new('windows-1251', 'utf8');
  return $conv->convert(shift);
}

sub JabberGetMessage {
  my $id = shift;
  my $message = shift;
  my $from = fUni($message->GetFrom);
  my $subj = fUni($message->GetSubject);
  my $body = fUni($message->GetBody);
  $jabber->MessageSend(
    To => 'newuser на newhost',
    Subject => tUni($subj),
    Body => tUni($body)
  )
}
==============================

п÷я─п╦ п╬я┌я│я▀п╩п╨п╣ п╤п╟п╠п╠п╣я─п╬п╪ я┌п╣п╨я│я┌п╟ "я┌п╣я│я┌", п©я─п╬я┘п╬п╢я▐ я┤п╣я─п╣п╥ я█я┌п╬я┌ "п╤п╟п╠п╠п╣я─-п©я─п╬п╨я│п╦" 
п©я─п╦я┘п╬п╢п╦я┌ п╡ п╡п╦п╢п╣ "ц▒,ц░б╣ц▒б│ц▒,", я┌.п╣. п©п╬я┤п╣п╪я┐-я┌п╬ п©я─п╬я┘п╬п╢п╦я┌ п╢п╡п╬п╧п╫я┐я▌ п╨п╬п╫п╣я─я┌п╟я├п╦я▌ п╡ 
я▌п╫п╦п╨п╬п╢. п∙я│п╩п╦ п©я─п╬я├п╣п╢я┐я─я┐ JabberGetMessage п©п╣я─п╣п©п╦я│п╟я┌я▄ п╡ п╡п╦п╢п╣ 

sub JabberGetMessage {
  my $id = shift;
  my $message = shift;
  $jabber->MessageSend(
    To => 'newuser на newhost',
    Subject => $message->GetSubject,
    Body => $message->GetBody
  )
}

я┌п╬ п╨ п╨п╩п╦п╣п╫я┌я┐ п╡п╬п╥п╡я─п╟я┴п╟п╣я┌я│я▐ п╫п╬я─п╪п╟п╩я▄п╫я▀п╧ "я┌п╣я│я┌". п▓ я┤п╣п╪ п╪п╬п╤п╣я┌ п╠я▀я┌я▄ п©я─п╬п╠п╩п╣п╪п╟?
-- 
Stanislav Yadykin
----------- следущая часть -----------
п▒я▀п╩п╬ я┐п╢п╟п╩п╣п╫п╬ п╡п╩п╬п╤п╣п╫п╦п╣ п╫п╣ п╡ я┌п╣п╨я│я┌п╬п╡п╬п╪ я└п╬я─п╪п╟я┌п╣...
п≤п╪я▐     : п╬я┌я│я┐я┌я│я┌п╡я┐п╣я┌
п╒п╦п©     : application/pgp-signature
п═п╟п╥п╪п╣я─  : 190 п╠п╟п╧я┌п╬п╡
п·п©п╦я│п╟п╫п╦п╣: п╬я┌я│я┐я┌я│я┌п╡я┐п╣я┌
Url     : http://lists.altlinux.ru/pipermail/community/attachments/20041021/32ff10dc/attachment.bin