使用Perl发送普通消息
如果您在Linux/Unix计算机上工作,则只需在Perl程序中使用sendmail实用程序即可发送电子邮件。这是一个示例脚本,可以将电子邮件发送到给定的电子邮件ID。只要确保sendmail实用程序的给定路径正确即可。对于您的Linux/Unix计算机,这可能有所不同。
#!/usr/bin/perl $to = 'abcd@gmail.com'; $from = 'webmaster@yourdomain.com'; $subject = 'Test Email'; $message = 'This is test email sent by Perl Script'; open(MAIL, "|/usr/sbin/sendmail -t"); # Email Header print MAIL "To: $to\n"; print MAIL "From: $from\n"; print MAIL "Subject: $subject\n\n"; # Email Body print MAIL $message; close(MAIL); print "Email Sent Successfully\n";
实际上,以上脚本是一个客户端电子邮件脚本,它将草稿电子邮件并提交给在Linux/Unix计算机上本地运行的服务器。该脚本将不负责将电子邮件发送到实际目的地。因此,您必须确保电子邮件服务器已正确配置并在计算机上运行,才能将电子邮件发送到给定的电子邮件ID。
热门推荐
10 对患者生日祝福语简短
11 结婚祝福语简短装备
12 周岁祝福语学生文案简短
13 订婚领证祝福语简短精辟
14 导师获奖祝福语大全简短
15 新婚购房祝福语简短精辟
16 牛年祝福语简短的爱人
17 送芒果的祝福语简短
18 送给学长毕业祝福语简短