ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Michael Poliakov                     2:5020/400     11 Apr 2001  16:38:08
 To : All
 Subject : Re: Перекодировщик
 -------------------------------------------------------------------------------- 
 

 On Tue, 10 Apr 2001 17:26:49 +0000 (UTC), "Eugene Lototsky"
 <eugene@sacura.chernovtsy.ua> wrote:
 
 >У кого-то есть пример перекодировщика писем на Перле, который фиксит
 >кодировку?
 
 Если просто кириллицу приводить к одной кодировке, то
 use Lingua::DetectCharset;
 use Convert::Cyrillic;
 
 $DstCharset = 'KOI8';
 
 $txt = to_cyr($txt, $DstCharset);
 
 sub to_cyr {
     my $buffer = shift;
     my $dst_charset = shift || 'KOI8';
     my $charset = Lingua::DetectCharset::Detect($buffer);
     $buffer = Convert::Cyrillic::cstocs ($charset, $dst_charset, $buffer);
     return $buffer;
 } # sub to_cyr
 Если еще надо всякие Quoted-Printable обрабатывать, то сначала (до
 вышеприведенного фрагмента) стоит использовать MIME::Tools.
 
 Michael Poliakov
 --- ifmail v.2.15dev5
  * Origin: Nizhniny Novgorod Information Networks (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Перекодировщик   Eugene Lototsky   10 Apr 2001 21:26:49   Re: Перекодировщик   Michael Poliakov   11 Apr 2001 16:38:08