Perl - 如何将 HTML 代码文本转换为电子邮件中的 HTML 表格

Question

我的数组中有我的 html 代码

   @array //contains all HTML table code

我想发送一封电子邮件，通过该电子邮件发送此 html 代码并将其转换为应有的 HTML 表格（不仅仅是 html 代码文本）

$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;