- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #5566 [620]
От : Dmitry Nikolayev 2:5020/400 27 января 05, 18:33
Кому : Anton Potekhin 12 февраля 05, 20:58
Тема : Re: кодировка
-------------------------------------------------------------------------------
From: "Dmitry Nikolayev"
В статейке: http://perl.dp.ua/practice/bookcgi.html
Есть пару строк, которые Вам нужны, а именно:
118 my $charset = Lingua::DetectCharset::Detect ($page); # определяем
кодировку документа, у Озона она win-1251, но делается это на всякий случай,
а вдруг они перейдут на Кои-8 или данные попадают скрипту через какой-нибудь
кэш-сервер, который перекодирует документы
119 $page = Convert::Cyrillic::cstocs ($charset, 'win', $page); #
преобразуем в кодировку win-1251
Как Вы понимаете, - $page - ваш текст в непонятной кодировке..
С уважением,
Дмитрий Hиколаев
"Anton Potekhin" сообщил/сообщила в новостях следующее:
news:ct25es$ccp$1@ddt.demos.su...
> Hello, All!
>
> Возникла такая проблема... у меня есть куча документов в разно кодировке,
> а
> точнее DOS и windows-1251. Мне нужно чтобы скрипт заходил в них и брал
> определенную информацию из них. Hо такая проблема я не могу определить
> какая
> кодировка у файла. Возможно ли ее определить с помощью перла ? и если да
> то
> как ?
>
> With best regards, Anton Potekhin. E-mail: anton@orbita1.ru
>
>
--- ifmail v.2.15dev5.3
* Origin: Alkar Teleport News Server (2:5020/400)