Perl - Как преобразовать текст HTML кода в таблицу HTML в электронном письме

Question

У меня есть мой html-код внутри моего массива

   @array //contains all HTML table code

Я хочу отправить электронное письмо, которое отправляет этот html-код и преобразует его в таблицу HTML, а не просто html-кодtext)

$to = 'my@email.com';
$from = 'my@email.com';
$subject = 'Test';
@message = @array;


open(MAIL, "|/usr/sbin/sendmail -t");

# Email Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
print MAIL "Content-type: text/html\n";
# Email Body
print MAIL @message;

close(MAIL);
print "Email Sent Successfully\n";


}

Прямо сейчас это отправляет мне электронное письмо со всем html-кодом в виде просто строк кода и текста, однако я хочу, чтобы он конвертировался в html-таблицу, как обычно.Я пытался использовать MIME, но не смог заставить его работать.Помощь будет принята с благодарностью.

Answer 1

Вы закончили заголовок слишком рано.

У вас фактически есть следующее:

print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n";
print MAIL "\n";
print MAIL "Content-type: text/html\n";
print MAIL $html;

Вы хотите следующее:

print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n";
print MAIL "Content-type: text/html\n";
print MAIL "\n";
print MAIL $html;