From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <at@altlinux.ru>
Date: Fri, 22 Oct 2004 18:25:32 +0400
From: Alexey Tourbin <at@altlinux.ru>
To: community@altlinux.ru
Message-ID: <20041022142532.GU2017@solemn.turbinal.org>
Mail-Followup-To: community@altlinux.ru
References: <200410211218.36489.tosick@altlinux.ru>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="+k4Drb7WGefOwc9B"
Content-Disposition: inline
In-Reply-To: <200410211218.36489.tosick@altlinux.ru>
Subject: [Comm] Re: Perl unicode
X-BeenThere: community@altlinux.ru
X-Mailman-Version: 2.1.5
Precedence: list
Reply-To: community@altlinux.ru
List-Id: Mailing list for ALT Linux users <community.altlinux.ru>
List-Unsubscribe: <https://lists.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://lists.altlinux.ru/pipermail/community>
List-Post: <mailto:community@altlinux.ru>
List-Help: <mailto:community-request@altlinux.ru?subject=help>
List-Subscribe: <https://lists.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Fri, 22 Oct 2004 14:26:38 -0000
Archived-At: <http://lore.altlinux.org/community/20041022142532.GU2017@solemn.turbinal.org/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>


--+k4Drb7WGefOwc9B
Content-Type: text/plain; charset=windows-1251
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

On Thu, Oct 21, 2004 at 12:18:27PM +0300, Stanislav Yadykin wrote:
> =CF=F0=E8 =EE=F2=F1=FB=EB=EA=E5 =E6=E0=E1=E1=E5=F0=EE=EC =F2=E5=EA=F1=F2=
=E0 "=F2=E5=F1=F2", =EF=F0=EE=F5=EE=E4=FF =F7=E5=F0=E5=E7 =FD=F2=EE=F2 "=E6=
=E0=E1=E1=E5=F0-=EF=F0=EE=EA=F1=E8"=20
> =EF=F0=E8=F5=EE=E4=E8=F2 =E2 =E2=E8=E4=E5 "??,??=B5??????,", =F2.=E5. =EF=
=EE=F7=E5=EC=F3-=F2=EE =EF=F0=EE=F5=EE=E4=E8=F2 =E4=E2=EE=E9=ED=F3=FE =EA=
=EE=ED=E5=F0=F2=E0=F6=E8=FE =E2=20
> =FE=ED=E8=EA=EE=E4. =C5=F1=EB=E8 =EF=F0=EE=F6=E5=E4=F3=F0=F3 JabberGetMes=
sage =EF=E5=F0=E5=EF=E8=F1=E0=F2=FC =E2 =E2=E8=E4=E5=20
>=20
> sub JabberGetMessage {
>   my $id =3D shift;
>   my $message =3D shift;
>   $jabber->MessageSend(
>     To =3D> 'newuser@newhost',
>     Subject =3D> $message->GetSubject,
>     Body =3D> $message->GetBody
>   )
> }
>=20
> =F2=EE =EA =EA=EB=E8=E5=ED=F2=F3 =E2=EE=E7=E2=F0=E0=F9=E0=E5=F2=F1=FF =ED=
=EE=F0=EC=E0=EB=FC=ED=FB=E9 "=F2=E5=F1=F2". =C2 =F7=E5=EC =EC=EE=E6=E5=F2 =
=E1=FB=F2=FC =EF=F0=EE=E1=EB=E5=EC=E0?

=CB=F3=F7=F8=E5 =ED=E5 =E8=F1=EF=EE=EB=FC=E7=EE=E2=E0=F2=FC Text::Iconv =E2=
=EC=E5=F1=F2=E5 =F1 =ED=E0=F2=E8=E2=ED=FB=EC utf8.
=CF=EE =EA=F0=E0=E9=ED=E5=E9 =EC=E5=F0=E5 =ED=E8=E6=E5=F1=EB=E5=E4=F3=FE=F9=
=E5=E5 =F3 =EC=E5=ED=FF =ED=E5 =F0=E0=E1=EE=F2=E0=E5=F2:

$ perl -MText::Iconv -le 'my $text=3D"=F2=E5=EA=F1=F2"; utf8::encode $text;=
 print Text::Iconv->new("utf8", "windows-1251")->convert($text)'

$

=CC=EE=E6=E5=F2 =E1=FB=F2=FC =E4=E5=EB=EE =E2 =F2=EE=EC, =F7=F2=EE XML::Str=
eam =E8=F1=EF=EE=EB=FC=E7=F3=E5=F2
use open ':utf8'

=CA=F2=EE =E7=ED=E0=E5=F2...

> --=20
> Stanislav Yadykin

--+k4Drb7WGefOwc9B
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.4 (GNU/Linux)

iD8DBQFBeRhcfBKgtDjnu0YRAj/oAJ4lm92ABKzXJpJVYnleGkRK98GxdACggjxp
W/WjV1zRyjd6uD7YP+ZFK5A=
=+i5U
-----END PGP SIGNATURE-----

--+k4Drb7WGefOwc9B--