ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Sergey Skvortsov                     2:5020/400     13 Jul 2000  17:40:17
 To : All
 Subject : Re: Перекодирование по  ля   Subject в mailbox
 -------------------------------------------------------------------------------- 
 

 Andrey Babkin wrote:
 
 > 
 > >> Subject: =?KOI8-R?B?W2tsZWluLWJ5XSD3xcfF1MHSycHO09TXzyA=?=
 > >> Subject: =?KOI8-R?B?W2tsZWluLWJ5XSDP1CDBxM/SwSA=?=
 > >> Subject: =?KOI8-R?B?W2tsZWluLWJ5XSDv0c3BIA==?=
 > >> Subject: =?KOI8-R?B?UkU6IFtrbGVpbi1ieV0g98/Q0s/TLiAg?=
 > >>
 > >>   Подскажите пожалуйста как вот эти вещи раскодировать из скрипта...
 
 сделан как фильтр.
 
 #!/usr/bin/perl
 use MIME::Base64 (decode_base64);
 use MIME::QuotedPrint (decode_qp);
 
 while(<>)  {
 if(/^Subject: (.*)$/) {
   my $subj=$1;
   $subj=~s/=\?[^\?]+\?Q\?((?:\=\w\w)+)\?=/decode_qp($1)/gei;
   $subj=~s/=\?[^\?]+\?B\?([A-Za-z0-9+\/=]+)\?=/decode_base64($1)/gei;
   print "Subject: $subj\n";
 }
 else {
   print;
 }#if
 }#while
 
 -- 
 Sergey Skvortsov
 mailto: skv@jivago.ryazan.ru
 http://godegisel.protey.ru/
 ICQ 38693706
 --- ifmail v.2.15dev5
  * Origin: Jivago Bank (2:5020/400)
 
 

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