|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Yury Kopyl 2:5020/400 09 Sep 2002 15:18:55
To : Artem Chuprina
Subject : Re: XML parser encoding table 1251
--------------------------------------------------------------------------------
Hекто Artem Chuprina по поводу "Re: XML parser encoding table 1251"
нашкрябал(а) следующее:
AC> Здравствуй, Anatoly Shuravin.
AS>> Подскажите, где взять? Или как сделать?
AC> Если имеется в виду XML::Parser, а не абстрактный XML parser, то не
AC> то в perldoc, не то в README от него указана ссылка на тот модуль,
AC> который с encoding работает, а в README от оного модуля - откуда
AC> брать и как делать.
AC> "как делать" на тот момент, когда я это видел, устарело и требовало
AC> несколько творческого подхода. Деталей уже не помню.
use Unicode::Map();
use Unicode::String qw(utf8 utf16);
sub utf2win{
my $str=shift;
my $u = utf8($str);
$str=$u->utf16; # 2 byte characters + surrogates
my $Map = new Unicode::Map("windows-1251") || die "Can't find codepage
Win-1251";
return $Map ->from_unicode ($str);
};
sub win2utf{
my $str=shift;
my $Map = new Unicode::Map("windows-1251") || die "Can't find codepage
Win-1251";
my $u = utf16($Map->to_unicode($str));
return $u->utf8;
};
только это все медленнннноооо... И иногда возникают трудноуловимые глюки
(apache/w32+APerl5.6.1) -
Yury Kopyl aka hrg | http://id.totem.ru | "Сегодня с нами ты не пьешь, а
завтра Родине изменишь!"
--
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: Talk.Mail.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
