OpenForum RSS: Раздел полезных советов: Как кодировать/декодировать на Perl содержимое полей в Quoted Printable https://opennet.me/openforum/vsluhforumID3/35947.html use MIME::Words qw(:all);<br> $decoded = decode_mimewords('Subject: =?KOI8-R?Q?=D4=C5=D3=D4?=');<br> $encoded = encode_mimeword("тест", "q", "koi8-r"); <br> $encoded = encode_mimewords("Subject: тест", Charset=&gt; 'koi8-r', Encoding =&gt; 'q');<br># для base64, вместо "q", написать "b".<br><br><br>URL: <br>Обсуждается: http://www.opennet.ru/tips/info/540.shtml<br> Как кодировать/декодировать на Perl содержимое полей в Quoted Printable (Vlad) https://opennet.me/openforum/vsluhforumID3/35947.html#1 Fri, 10 Nov 2006 11:23:22 GMT Я использую ту же функцию, но она плохо работатет когда в теме несколько русских слов - <br>съедаются пробелы.<br>Из "аб вг" получается:<br>=?UTF-8?B?0LDQsQ==?= =?UTF-8?B?0LLQsw==?=<br>Но Оутлук отображаетт это как "абвг"<br><br>Порбел между аб и вг исчезает.<br><br>