>Хм, обновил версию модуля MIME::Words, все равно поведение с пробелами не изменилось. Угу, у него и в документации написано, что не полностью соответствует.
>Почитал RFC, там действительно определено что пробелы между закодированными блоками не отображаются,
>а между закодированным и не закодированным - вставляются. Получается проблема в
>MIME::Words, попытаюсь найти альтернативный модуль соблюдающий стандарт.
>
>PS. Посмотрел пару webmail на перл, там таже проблема.
Накидал такую функцию, мои тесты она проходит. Лицензия - "все_пофиг" :)
#!/usr/local/bin/perl
use strict;
use vars;
sub rfc2047conv
{
my $str = shift; # чего кодировать
my $charset = uc(shift); # какую кодировку приписать
my $init_len = shift || 0; # длина того, что планируется добавить потом в начало строки
my $len = length($str);
return '' unless($len);
my $begin = "=?$charset?Q?";
my $res = $begin;
my $count = $init_len + length($begin);
foreach my $c (split(//, $str)) {
my ($repl, $repl_len);
if($c eq '?' || $c eq '_' || $c eq '=' || $c lt ' ' || $c gt '~') {
$repl = sprintf("=X", ord($c));
$repl_len = 3;
}
elsif($c eq ' ') {
$repl = '_';
$repl_len = 1;
}
else {
$repl = $c;
$repl_len = 1;
}
if($count + $repl_len > 72) {
$res .= "?=\r\n " . $begin;
$count = 1 + length($begin);
}
$res .= $repl;
$count += $repl_len;
}
$res .= '?=';
return $res;
}
printf("[%s]\n", rfc2047conv("some very very long test subject = длинный тестовый сабжект", 'KOI8-R', length('Subject: ')));
Вариант для распечатки
Обсуждения, касающиеся сайта и форума. (Public)
(??) on 11-Апр-06, 11:50 
