https://www.opennet.ru/openforum/vsluhforumID3/49239.html Популярный Perl модуль MIME::Words не обеспечивает quoted-printable кодирование <br>в полном соотвтетвии с RFC2047 (пробелы между двумя закодированными блоками недопустимы).<br><br># rfc2047conv (строка, кодировка, размер префикса);<br>sub rfc2047conv{<br> my $str = shift; # чего кодировать<br> my $charset = uc(shift); # какую кодировку приписать<br> my $init_len = shift &#124;&#124; 0; # длина того, что планируется добавить потом в начало строки<br><br> my $len = length($str);<br><br> return '' unless($len);<br><br> my $begin = "=?$charset?Q?";<br> my $res = $begin;<br> my $count = $init_len + length($begin);<br> foreach my $c (split(//, $str)) {<br> my ($repl, $repl_len);<br> if($c eq '?' &#124;&#124; $c eq '_' &#124;&#124; $c eq '=' &#124;&#124; $c lt ' ' &#124;&#124; $c gt '~') {<br> $repl = sprintf("=%X", ord($c));<br> $repl_len = 3;<br> } elsif($c eq ' ') {<br> $repl = '_';<br> $repl_len = 1;<br> } else {<br> $repl https://www.opennet.ru/openforum/vsluhforumID3/49239.html#3 Wed, 05 May 2010 18:42:29 GMT спасибо пригодилось<br>для отправки смс через e-mail<br> https://www.opennet.ru/openforum/vsluhforumID3/49239.html#2 Fri, 12 Jun 2009 06:08:58 GMT Спасибо автору!<br>Полезная функция. Но<br>в процессе эксплуатации заметил, что при переносе длинных строк, символы на границе строк могут быть перенесены некорректно, иногда разбиваются по середине, т.е. половина символа остается на одной строке, а вторая половина переносится на следую строку. Например, у меня была строка, в которой было слово 'найдено', и вот, как оно разбилось на части.<br>Буква 'д' , после кодирования должна превращаться в '=D0=B4' . Так вот '=D0' осталось на одной строке, а '=B4' перенеслось на следующую, и как следствие, при чтении этого письма в почтовом клиенте, вместо буквы д были два знака вопроса.<br><br>.....=D0=BD=D0=B0=D0=B9=D0?=<br>=?UTF-8?Q?=B4=D0=B5=D0=BD=D0=BE=A?=<br><br>Stanislaus писал:<br>&gt;Еще стоит взглянуть на Encode::MIME::Header,<br><br>...<br><br>Я пробовал Encode::MIME::Header. Он у меня вообще не заработал:<br>https://rt.cpan.org/Public/Bug/Display.html?id=46832<br> https://www.opennet.ru/openforum/vsluhforumID3/49239.html#1 Tue, 10 Feb 2009 22:38:15 GMT Еще стоит взглянуть на Encode::MIME::Header, который позволяет производить эти манипуляции так: <br>use Encode qw/encode decode/; <br>$utf8 = decode('MIME-Header', $header);<br>$header = encode('MIME-Header', $utf8);<br><br>правда только для UTF-8, но обычно больше ничего и не нужно. Главное, что бы хорошо работало. Использовать MIME::Words из MIME::Tools не советую.<br>