Как кодировать/декодировать на 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
|
Раздел: Корень / Программисту и web-разработчику / Perl / Работа с электронной почтой |