The OpenNET Project / Index page

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

Как кодировать/декодировать на 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:
    Заголовок:
    Текст:




    Партнёры:
    PostgresPro
    Inferno Solutions
    Hosting by Hoster.ru
    Хостинг:

    Закладки на сайте
    Проследить за страницей
    Created 1996-2024 by Maxim Chirkov
    Добавить, Поддержать, Вебмастеру