ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Maxim Goncharov 2:5064/17.776 30 Jul 2002 02:50:14
To : Yury Kopyl
Subject : Re: Кодировка в XML
--------------------------------------------------------------------------------
Hi Yury Kopyl, hope you are having a nice day
YK> use Unicode::Map();
YK> use Unicode::String qw(utf8 utf16);
YK> sub UTF_to_WIN{
YK> my $str=shift;
YK> my $u = utf8($str);
YK> $str=$u->utf16; # 2 byte characters + surrogates
YK> my $Map = new Unicode::Map("windows-1251") || die "Can't find codepage
YK> Win-1251";
return $Map ->> from_unicode ($str);
YK> };
Спасибо, помогло.
-=> Yours sincerely, Maxim Goncharov <=-
--- Terminate 5.00/Pro
* Origin: The NEW Terminate will -=> FAX <=- almost anything! (2:5064/17.776)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
