From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <at@altlinux.ru>
Date: Fri, 22 Oct 2004 19:58:40 +0400
From: Alexey Tourbin <at@altlinux.ru>
To: community@altlinux.ru
Message-ID: <20041022155840.GV2017@solemn.turbinal.org>
Mail-Followup-To: community@altlinux.ru
References: <200410211218.36489.tosick@altlinux.ru>
	<20041022142532.GU2017@solemn.turbinal.org>
	<200410221751.04059.tosick@altlinux.ru>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="Ln+iIw7POnzHEEo5"
Content-Disposition: inline
In-Reply-To: <200410221751.04059.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 17:33:52 -0000
Archived-At: <http://lore.altlinux.org/community/20041022155840.GV2017@solemn.turbinal.org/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>


--Ln+iIw7POnzHEEo5
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

On Fri, Oct 22, 2004 at 05:50:56PM +0300, Stanislav Yadykin wrote:
> =E1 =D7=CF=D4 =C5=D3=CC=C9
> -(~:$)-> perl "-MEncode('from_to')" -MText::Iconv -le 'my $text=3D"=D4=C5=
=CB=D3=D4"; from_to($text, "windows-1251", "utf8"); print Text::Iconv->new(=
"utf8", "windows-1251")->convert($text)'
> =D4=C5=CB=D3=D4

=E4=C1, =D4=C1=CB =D0=D2=C1=D7=C9=CC=D8=CE=CF.

> > =ED=CF=D6=C5=D4 =C2=D9=D4=D8 =C4=C5=CC=CF =D7 =D4=CF=CD, =DE=D4=CF XML:=
:Stream =C9=D3=D0=CF=CC=D8=DA=D5=C5=D4
> > use open ':utf8'
> =F3=CD=CF=D4=D2=C5=CC, =CE=CF =D0=CF=C4=CF=C2=CE=CF=C7=CF =CE=C9=DE=C5=C7=
=CF =CE=C5=D4.

$ rpm -qR perl-Net-Jabber |grep Stream
perl(XML/Stream.pm) >=3D 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 ':ut=
f8';");
/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 u=
tf8.
$

> --=20
> Stanislav Yadykin
> ALT Linux Team

--Ln+iIw7POnzHEEo5
Content-Type: application/pgp-signature
Content-Disposition: inline

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

iD8DBQFBeS4vfBKgtDjnu0YRAvJGAKCWEUW+5yDi4odKoeCxv9S07DpR2gCgiP2N
KS+/uXlVdaQqDhQgir03ip4=
=XvOH
-----END PGP SIGNATURE-----

--Ln+iIw7POnzHEEo5--