[Comm] Re: Perl unicode

[Stanislav Yadykin]

п▓ я│п╬п╬п╠я┴п╣п╫п╦п╦ п╬я┌ п÷я▐я┌п╫п╦я├п╟, 22-п·п╨я┌-2004 17:25 Alexey Tourbin п╫п╟п©п╦я│п╟п╩(a):
> п⌡я┐я┤я┬п╣ п╫п╣ п╦я│п©п╬п╩я▄п╥п╬п╡п╟я┌я▄ Text::Iconv п╡п╪п╣я│я┌п╣ я│ п╫п╟я┌п╦п╡п╫я▀п╪ utf8.
> п÷п╬ п╨я─п╟п╧п╫п╣п╧ п╪п╣я─п╣ п╫п╦п╤п╣я│п╩п╣п╢я┐я▌я┴п╣п╣ я┐ п╪п╣п╫я▐ п╫п╣ я─п╟п╠п╬я┌п╟п╣я┌:
>
> $ perl -MText::Iconv -le 'my $text="я┌п╣п╨я│я┌"; utf8::encode $text; print Text::Iconv->new("utf8", "windows-1251")->convert($text)'

п╜я█я█я█... п╡п╬п╬п╠я┴п╣-я┌п╬

utf8::encode($string)
           Converts in-place the octets of the $string to the octet sequence in Perl's
UTF-X encoding.  Returns nothing.  Note that this does not change the "type" of
$string to UTF-8, and that this handles only ISO 8859-1 (or EBCDIC) as the source
character set. Therefore this should not be used to convert a legacy 8-bit encoding
to Unicode: use Encode::decode() for that.  

п░ п╡п╬я┌ п╣я│п╩п╦
-(~:$)-> perl "-MEncode('from_to')" -MText::Iconv -le 'my $text="я┌п╣п╨я│я┌"; from_to($text, "windows-1251", "utf8"); print Text::Iconv->new("utf8", "windows-1251")->convert($text)'
я┌п╣п╨я│я┌

> п°п╬п╤п╣я┌ п╠я▀я┌я▄ п╢п╣п╩п╬ п╡ я┌п╬п╪, я┤я┌п╬ XML::Stream п╦я│п©п╬п╩я▄п╥я┐п╣я┌
> use open ':utf8'
п║п╪п╬я┌я─п╣п╩, п╫п╬ п©п╬п╢п╬п╠п╫п╬пЁп╬ п╫п╦я┤п╣пЁп╬ п╫п╣я┌.

-- 
Stanislav Yadykin
ALT Linux Team
----------- следущая часть -----------
п▒я▀п╩п╬ я┐п╢п╟п╩п╣п╫п╬ п╡п╩п╬п╤п╣п╫п╦п╣ п╫п╣ п╡ я┌п╣п╨я│я┌п╬п╡п╬п╪ я└п╬я─п╪п╟я┌п╣...
п≤п╪я▐     : п╬я┌я│я┐я┌я│я┌п╡я┐п╣я┌
п╒п╦п©     : application/pgp-signature
п═п╟п╥п╪п╣я─  : 190 п╠п╟п╧я┌п╬п╡
п·п©п╦я│п╟п╫п╦п╣: п╬я┌я│я┐я┌я│я┌п╡я┐п╣я┌
Url     : http://lists.altlinux.ru/pipermail/community/attachments/20041022/9af0b8df/attachment.bin