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),
);