用户注册



邮箱：

密码：

用户登录


邮箱：

密码：
记住登录一个月忘记密码？

发表随想


还能输入：200字
云代码 - perl代码库

perl 发送邮件

2012-10-15 作者： 神马举报

[perl]代码库

view sourceprint?
#-----------------------------
use Mail::Mailer;
 
$mailer = Mail::Mailer->new ( "sendmail" );
$mailer->open ( { From    => $from_address,
                  To      => $to_address,
                  Subject => $subject,
                } )
or die "Can't open: $!\n";
print $mailer $body;
$mailer->
close();
#-----------------------------
open ( SENDMAIL, "|/usr/lib/sendmail -oi -t -odq" )
or die "Can't fork for sendmail: $!\n";
print SENDMAIL <<"EOF";
From:
User Originating Mail <me\@host>
To:
Final Destination <you\@otherhost>
Subject:
A relevant subject line
 
Body of the message goes here, in as many lines as you like.
EOF
close ( SENDMAIL )     or warn "sendmail didn't close nicely";
#-----------------------------
$mailer = Mail::Mailer->new ( "sendmail" );
#-----------------------------
$mailer = Mail::Mailer->new ( "mail", "/u/gnat/bin/funkymailer" );
#-----------------------------
$mailer = Mail::Mailer->new ( "smtp", "mail.myisp.com" );
#-----------------------------
eval
{
    $mailer = Mail::Mailer->new ( "bogus", "arguments" );
# ...
};
if ( $@ )
{
# the eval failed
    print "Couldn't send mail: $@\n";
}
else
{
# the eval succeeded
    print "The authorities have been notified.\n";
}
#-----------------------------
$mailer->open ( 'From'    => 'Nathan Torkington <gnat@frii.com>',
                'To'      => 'Tom Christiansen <tchrist@perl.com>',
                'Subject' => 'The Perl Cookbook' );
#-----------------------------
print $mailer <<EO_SIG;
Are we ever going to finish this book?
My wife is threatening to leave me.
She says I love EMACS more than I love her.
Do you have a recipe that can help me?
 
Nat
EO_SIG
#-----------------------------
close ( $mailer )                      or die "can't close mailer: $!";
#-----------------------------
open ( SENDMAIL, "|/usr/sbin/sendmail -oi -t -odq" )
or die "Can't fork for sendmail: $!\n";
print SENDMAIL <<"EOF";
From:
Tom Christiansen <tchrist\@perl.com>
To:
Nathan Torkington <gnat\@frii.com>
Subject:
Re:
The Perl Cookbook
 
( 1 ) We will never finish the book.
( 2 ) No man who uses EMACS is deserving of love.
( 3 ) I recommend coq au vi.
 
tom
EOF
close ( SENDMAIL );
#-----------------------------


网友评论    (发表评论)

共1 条评论 1/1页

发表评论：

评论须知：

  • 1、评论每次加2分，每天上限为30；
  • 2、请文明用语，共同创建干净的技术交流环境；
  • 3、若被发现提交非法信息，评论将会被删除，并且给予扣分处理，严重者给予封号处理；
  • 4、请勿发布广告信息或其他无关评论，否则将会删除评论并扣分，严重者给予封号处理。


扫码下载

加载中，请稍后...

输入口令后可复制整站源码

加载中，请稍后...