我在 unix 环境下工作,并且有一个 perl 脚本来发送邮件,但我需要发送 HTML 格式的邮件,但它打印为 html 代码。所以任何人都可以让我知道它如何操作或编译html并发送格式化的邮件。
#!/usr/bin/perl
#print "Content-type: text/html\n\n";
print("enter my name");
chop($name=<stdin>);
&mail();
sub mail{
$title='perl';
$to='abcd@acv.com';
$from= 'xyz@xyz.com';
$subject=$name;
open(MAIL, "|/usr/sbin/sendmail -t");
## Mail Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
## Mail Body
print MAIL $name;
print MAIL "<html><body><p>";
print MAIL "<b>Hello</b>";
print MAIL "This is a test message from Cyberciti.biz! You can write your";
print MAIL "</p></body></html>";
##print MAIL "$title";
close(MAIL);
}
它在邮件中的打印:
<html><body><p><b>Hello</b>This is a test message from Cyberciti.biz! You can write your</p></body></html>
像这样......因为它似乎没有将其转换为 html 格式。所以请帮我解决这个问题。