|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrey N. Demushkin 2:5020/1611.66 25 Jan 2002 11:05:00
To : Oleg Shumsky
Subject : узнать кодировку?
--------------------------------------------------------------------------------
22 Jan 02 19:39, you wrote to me:
AP>>> HTTP_REFERER).
AD>> use Lingua::DetectCharset;
OS> кстати, об этой Lingua. Кто-нить может набросать простейший скрипт с
OS> примером перекодирования из 1251 в кои8? или вообще как кэтим всем
OS> пользоваться. Я с бубном танцевал вокруг и около, так ничего не
OS> добился и в итоге использовал банальный tr/cp1251/koi8/;
OS> однако ж правильнее было бы так.
OS> Да и хелпов по этой лингве, грубо говоря нет. То, что в мане - можно
OS> даже и не смотреть.
my $Dst = 'KOI8';
$title = 'какой-то текст в какой-то кодировке'
$Buffer = Lingua::DetectCharset::Detect ($title);
$Src = $Buffer;
$message = Convert::Cyrillic::cstocs ($Src, $Dst, $title);
Will you be with me even if i miss another, Oleg?
... np : Within Temptation - The Promise
--- Word Processor of the Gods 1.1.4.7 [http://adx.cjb.net]
* Origin: Кто-то спит под столом, ну а мы пока пьем... (2:5020/1611.66)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
