The OpenNET Project / Index page

[ новости/++ | форум | wiki | теги ]

Как кодировать/декодировать на Perl содержимое полей в Quoted Printable
use MIME::Words qw(:all);
  $decoded = decode_mimewords('Subject: =?KOI8-R?Q?=D4=C5=D3=D4?=');
  $encoded = encode_mimeword("тест", "q", "koi8-r"); 
  $encoded = encode_mimewords("Subject: тест", Charset=> 'koi8-r', Encoding => 'q');
# для base64, вместо "q", написать "b".
 
15.09.2003
Ключи: perl, pri, mime, mc, charset, base64, quota, print, encoding / Лицензия: CC-BY
Раздел:    Корень / Программисту и web-разработчику / Perl / Работа с электронной почтой

Обсуждение [ RSS ]
 
  • 1, Vlad, 14:23, 10/11/2006 [ответить] [смотреть все]
  • +/
    Я использую ту же функцию, но она плохо работатет когда в теме несколько русских слов -
    съедаются пробелы.
    Из "аб вг" получается:
    =?UTF-8?B?0LDQsQ==?= =?UTF-8?B?0LLQsw==?=
    Но Оутлук отображаетт это как "абвг"

    Порбел между аб и вг исчезает.

     

    Ваш комментарий
    Имя:         
    E-Mail:      
    Заголовок:
    Текст:



      Закладки на сайте
      Проследить за страницей
    Created 1996-2017 by Maxim Chirkov  
    ДобавитьРекламаВебмастеруГИД  
    Hosting by Ihor