Темы сообщения со специальной Charaters отправить с Perl

Question

я должен отправить электронную почту с Perl, вот код:

my $msg = MIME::Lite->new(
    From => $tpl->{'from'}, 
    To => $tpl->{'to'}, 
    Subject => $subject_id_site . Encode::encode('MIME-Header',$subject_label). Encode::encode('MIME-Header', $tpl->{'subject'}), 
    ReplyTo => $tpl->{'reply_to'}, 
    Encoding => 'quoted-printable', 
    Type =>'text/html', 
    Data => Encode::encode('utf8',$tpl->{'body'}), 
); 

Если объект содержит специальные символы, например: [300584/Yçàéè@test] subject

здесь является тема электронной почты, которую я получил от Perl-кодирования: [300584/Yçà éè@test] subject.

На самом деле я пробовал с Encode::encode('UTF8',$subject_label), но все хуже.

Answer 1

Тема электронной почты выглядит «дважды закодированной», поэтому я предполагаю, что у вас есть правильная строка utf-8, которая не имеет флага utf-8.

Так добавить:

utf8::decode($subject_label); 

добавить в верхней части кода, а остальное оставьте как есть.

НТН Georg