ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alex Kirhenshtein                    2:5030/394.103 18 Jun 2002  19:24:36
 To : Rostislav Podgornyi
 Subject : очень срочно!
 -------------------------------------------------------------------------------- 
 

 
 
 18 Jun 02 11:31, you wrote to All:
 
  RP> Как их пpеобpазовать в ноpмальный читаемый вид?
  RP> Спасибо!
 
 -+-
         if ($str =~ /=\?([^?]+)\?(.)\?([^?]*)\?=/)
         {
                 $charset    = $1;
                 $encoding   = $2;
                 $txt        = $3;
                 $str_before = $`;
                 $str_after  = $';
 
                 if ($encoding =~ /b/i) {
                         require MIME::Base64;
 
                         MIME::Base64->import(decode_base64);
                         $txt = decode_base64($txt);
                 } elsif ($encoding =~ /q/i) {
                         require MIME::QuotedPrint;
 
                         MIME::QuotedPrint->import(decode_qp);
                         $txt = decode_qp($txt);
                 } else {
                         # unknown
                 }
 
                 $subject = $str_before.$txt.$str_after;
 
                 $converter = Text::Iconv->new($charset, "utf-8");
                 if ($converter) {
                         $subject = $converter->convert($subject);
                 }
         } else {
                 $subject = $str;
         }
 -+-
 // Alex
 --- GoldED+/BSD 1.1.4.7
  * Origin:  (2:5030/394.103)
 
 

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

Тема:    Автор:    Дата:    очень срочно!   Rostislav Podgornyi   18 Jun 2002 11:31:28   очень срочно!   Rostislav Podgornyi   18 Jun 2002 15:01:53   очень срочно!   Alex Kirhenshtein   18 Jun 2002 19:24:36   mime decoding - Re: очень срочно!   Valentin Nechayev   13 Jul 2002 22:35:32   Re: mime decoding - Re: очень срочно!   Konstantin Tokar   14 Jul 2002 02:57:33