[Moscow.pm] Как закодировать UTF-8 в base64?

[Сивиринов Иван]

Гм.. странно.

Всегда прокатывало (utf-8 в том числе) что-то типа:

use MIME::Base64 qw(encode_base64);
sub _encode_subject {
     my $class = shift;
     my $enc   = shift;
     my $subj  = shift;
     $subj =~ s/\n/ /gm;
     $subj = encode_base64($subj);
     chomp $subj;
     return sprintf('=?%s?B?%s?=', $enc, $subj);
}

но, боян же...
или неправильно понял?


11.08.2011 17:43, Alex Povolotsky пишет:
> Господа товарищи,
>
> вопрос, возможно, идиотский, но я как-то не нашел на него ответа.
>
> Нужно отправить письмо. В UTF-8. Чтобы письмо было приличным, Subject: 
> должен быть завернут в Base64.
>
> Но!
>
> Ни Encode::Encoder, ни MIME::Base64 UTF-8 энкодить не хотят.
>
> Я что-то упустил и UTF-8 для помещения в тему письма нужно перегонять 
> во что-то восьмибитное и только потом энкодить? Или есть какой-то 
> секретный энкодер, которого я не могу найти?
>
> Alex