ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Slava Gorbanev                       2:5057/19.20   12 Jul 2000  07:53:48
 To : Gleb Galkin
 Subject : Re: Перекодирование поля Subject в mailbox
 -------------------------------------------------------------------------------- 
 

 
 On Tue, 11 Jul 00 21:18:06 +0500, Gleb Galkin wrote:
 
  GG> Subject: =?KOI8-R?B?W2tsZWluLWJ5XSD3xcfF1MHSycHO09TXzyA=?=
  GG> Subject: =?KOI8-R?B?W2tsZWluLWJ5XSDP1CDBxM/SwSA=?=
  GG> Subject: =?KOI8-R?B?W2tsZWluLWJ5XSDv0c3BIA==?=
  GG> Subject: =?KOI8-R?B?UkU6IFtrbGVpbi1ieV0g98/Q0s/TLiAg?=
  GG>   Подскажите пожалуйста как вот эти вещи раскодировать из скрипта...
 
 # decode MIME encoded strings (rfc2047)
 
 use MIME::Base64;
 use MIME::QuotedPrint;
 
 if (my ($encoding, $type, $text) = /=\?(.*)\?(.)\?(.*)\?=/) {
     uc $type eq 'B' and $text = decode_base64 ($text)
   or
     uc $type eq 'Q' and $text = decode_qp ($text);
     $_ = "$`$text$'";
 }
 -- 
 RnD[.]         http://dot.formoza.ru/
 
 GCS d- s+:- a-- C++++ UBL+++ P+++ L++ E(++) W+(++) N++@+ o? K-
 w O M- V PS+ PE Y PGP- t- 5 X R- tv b+ DI-- D++ G++ e- h! r y**
 ---  tin/pre-1.4-19990517 ("Psychonaut") (UNIX) (Linux/2.0.36 (i586))
  * Origin: one flew over the sniper's nest (2:5057/19.20@fidonet)
 
 

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