perl使用Net::SMTP模塊發(fā)送郵件

lzj24

寫了一個perl用來發(fā)郵件，如下所示：

  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

但是運行的時候出現(xiàn)以下報錯：
./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郵件服務(wù)器的地址呀。

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

anthelion

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