Perl Mime:: Lite прикрепить текстовый файл ошибка перевода строки

my @test = ("Row1", "Row2", "Row3");
my $attch = join("<cr><lf><br>\\n", @test);

$message = MIME::Lite->new(
    From     => $mailFrom ,
    To       => $address,
    Subject  => $title,
    Type     => 'text/html',
    Encoding => '8bit',
    Data     => $data
);

$message->attach(
    Type     =>'TEXT',
    Data     => $attch
);

MIME::Lite->send('smtp', $host, Timeout => 20);
$message->send;

Добрый день, я пытаюсь отправить файл по электронной почте, но я не могу написать правильный перевод строки, код отправляет письмо с вложенным файлом, этот прикрепленный файл содержит следующую информацию:
"Row1
\ nRow2
\ nRow3"

Как я могу получить:
Row1
Стр2
Row3

В приложенном файле?

1 ответ

Решение
$message->attach(
   Type => 'TEXT',
   Data => join('', map { "$_\n" } @test),
);
Другие вопросы по тегам