perl使用Net::SMTP模块发送邮件

lzj24

写了一个perl用来发邮件，如下所示：

  1 #!/usr/bin/perl
  2 #
  3 use strict;
  4 use warnings;
  5 use Net::SMTP;
  6
  7 sub send_mail{
  8 my $to_address = "1594565760\@qq.com";
  9 my $subject = "主题";
10 my $message = <<EOF;
11 ************
12 你好
13 ************
14 EOF
15
16 my $smtp = Net::SMTP->new();
17
18 $smtp->to($to_address);
19 $smtp->datasend($subject); # set subject
20 $smtp->datasend($message); # set content
21
22 $smtp->quit();
23 }
24
25 send_mail()
26

但是运行的时候出现以下报错：
./sendmail.pl
Can't call method "to" on an undefined value at ./sendmail.pl line 18.

请问下是Net::SMTP没有安装，还是语法哪里错了？？
用perl -MNet::SMTP -e 1查看的时候没有报错，也不显示任何信息。

perl菜鸟求助

anthelion

16 my $smtp = Net::SMTP->new();没有输入smtp邮件服务器的地址呀。

改成 my $smtp = Net::SMTP->new($your_mail_server);
试试看。

anthelion

18行后面加两行：
        $smtp->data();
        $smtp->datasend("To: 1594565760\@qq.com\n");