perl - perl 如何发送 SMTP 邮件

Question

以下是我写的从我的邮件主机向我的个人电子邮件地址发送电子邮件的内容以及我收到的错误。

有人可以帮我解释为什么我们会收到错误:

Can't call method "mail" on an undefined value at cmm_ping.pl line 2.

use Net::SMTP;
$smtp->mail("jo-sched@abcd.com");
$smtp->recipient("Myname@XXX-XXXX.com");
$smtp->datasend("From: jo-sched@abcd.com");
$smtp->datasend("To: Myname@xxxx-xxxxxx.com");
$smtp->datasend("Subject: This is a test");
$smtp->datasend("\n");
$smtp->datasend("This is a test");
$smtp->dataend;
$smtp->quit;

Answer 1

变量 $smtp尚未定义。看看usage examples of Net::SMTP .这个例子几乎可以完成您的代码应该做的事情:

use Net::SMTP;

$smtp = Net::SMTP->new('mailhost');

$smtp->mail($ENV{USER});
$smtp->to('postmaster');

$smtp->data();
$smtp->datasend("To: postmaster\n");
$smtp->datasend("\n");
$smtp->datasend("A simple test message\n");
$smtp->dataend();

$smtp->quit;