你的分享就是我们的动力 ---﹥

Perl 使用 sendmail 程序发送邮件

时间:2013-05-30 00:09来源:www.chengxuyuans.com 点击:

代码简介

暂无

Perl代码片段

#!/usr/bin/perl

$from="$me\@mydomain.com";
$to="you\@yourdomain.com";
$subject="Test email";

$sendmailpath="/usr/sbin/sendmail";

$message = "This is a test e-mail using Sendmail\n\nFrom me\n\n";

open (SENDMAIL, "| $sendmailpath -t") or die "Cannot open $sendmail: $!";

print SENDMAIL "Subject: $subject\n";
print SENDMAIL "From: $from\n";
print SENDMAIL "To: $to\n\n";

print SENDMAIL "$message";

close (SENDMAIL);

转载注明地址:http://www.chengxuyuans.com/Perl/63106.html