Perl不使用模块向web服务器发送电子邮件

我正在编写一个程序，以便在服务器上进行监视（电子邮件：cms1@melitaplc.com)然后给我的笔记本电脑发一封电子邮件（丹尼尔。saliba@melitaplc.com)它连接到web服务器（smtp.melita.com）。在我的电子邮件daniel…之后，我尝试添加smtp端口，即sendEmail（“daniel.saliba\@melitapc.com:25”，…），但我得到了/export/home/cassi/dead.letter

---

另外，我无法安装任何CPAN模块，因此代码如下

程序执行时没有任何错误，但我没有收到电子邮件

sendEmail("daniel.saliba\@melitaplc.com", "cms1\@melitaplc.com", "ALERT", "This is a  test" );

sub sendEmail
 {
    my ($to, $from, $subject, $message) = @_;
    my $sendmail = '/usr/lib/sendmail';
    open(MAIL, "|$sendmail -oi -t");
            print MAIL "From: $from\n";
            print MAIL "To: $to\n";
            print MAIL "Subject: $subject\n\n";
            print MAIL "$message\n";
    close(MAIL);
 }

---

如果您没有安装CPAN模块的权限，那么您可能也无法读取邮件日志。。。所以你可以试试跑步

/usr/lib/sendmail -oi -t -v

---

在命令行上，将脚本发送的文本输入到命令行中，然后查看它的功能。

-v

开关应该会为您提供大量调试信息。

“我无法安装任何CPAN模块，因此代码如下。”-是的。这是一台旧的solaris 9机器，它是一台公司服务器，因此我最好不用安装任何东西就可以找到解决方案，而且我也尝试过，但它不让我这么做。@dsaliba您确实阅读了链接吗？您是否尝试了

Net:：SMTP

？它是一个核心模块。Solaris 9-这听起来像是安装任何像样的CPAN模块或重新编译perl都需要花费亿万年的时间。。。