用Net::SMTP_auth发邮件，邮件内容问题，急！

li_000828

小弟用Net::SMTP_auth写了一个发送邮件的脚本：
内容如下：

1. #!/usr/bin/perl
   
2. use Net::SMTP_auth;
   
3. if(@ARGV < 3) { die "Usage: ./$0 mailbox centent subject\n\n";}
   
4. $mail_server='smtp.abc.cn';
   
5. $mail_from='service@abc.cn';
   
6. $smtp=Net::SMTP->new("$mail_server",Debug=>1);
   
7. $smtp->auth('guest@abc.cn','123456');
   
8. $smtp->mail($mail_from);
   
9. $smtp->to("$ARGV[0]");
   
10. $smtp->data();
    
11. $smtp->datasend("from:$mail_from\n");
    
12. $smtp->datasend("to:$ARGV[0]\n");
    
13. $smtp->datasend("subject:$ARGV[2]\n");
    
14. $smtp->datasend("content-type:text/html;charset=utf-8\n\n");
    
15. $smtp->datasend("$ARGV[1]\n");
    
16. $smtp->dataend();
    
17. $smtp->quit;
    

复制代码

主要的问题是，发送的内容是$ARGV[1]，其中内容包括:

"请点击此链接：<a>http://www.test.com</a>"
可是邮箱收到的内容只是普通的文本，并没有在内容中有http://www.test.com这个链接。是不是“content-type:text/html;charset=utf-8\n\n”有问题，请大侠们帮忙！！！

li_000828

问题已经解决了，符号问题。