[perl] 请教 发邮件 的问题

xufengnju

在写一个perl脚本，发生错误时需要发送邮件，请问大家常用的perl发邮件的模块是哪个啊？
谢谢指教。

Perl_Er

http://perldoc.perl.org/Net/SMTP.html

hfahe

Mail::Sender

shaneqi

Mail::Sender

lauhy

几天前刚写的一个。

#!/usr/bin/perl
use strict;
use warnings;
use Net::SMTP;

if($#ARGV < 2) {
    print "$#ARGV\n";
    print "Usage: $0 <Subject> <MailFrom> <MailTo> [MailContentFile]>\n";
    print "--------------------Sample---------------------------------\n";
    print "$0 \"Results\" \"xxx\@mail.xxx.com\" \"xxx\@mail.xxx.com,abc\@mail.xxx.com\" \"status.out\"\n";
    print "cat status.out | grep -v OK | $0 \"Results\" \"xxx\@mail.xxx.com\" \"xxx\@mail.xxx.com,abc\@mail.xxx.com\"\n";
    print "\n";
    exit 0;
}

my($subject, $mailfrom, $mailto_str, $content_file) = @ARGV;
print("subject=",$subject,"\n";
print("mailfrom=",$mailfrom,"\n";
print("subject=",$mailto_str,"\n";
shift(@ARGV); shift(@ARGV); shift(@ARGV);

my $text = "";
my $line = "";
while ($line = <> {
  $text=$text.$line;
}
print($text,"\n",);

my $mailhost='smtp.mail.xxx.com';
my $mailcc='xxx/@mail.xxx.com';

my @mailto = split (/,/, $mailto_str);

my $smtp=Net::SMTP->new($mailhost, Timeout=>120, Debug=>1) or die "Error.\n";
$smtp->mail($mailfrom);
$smtp->recipient(@mailto);
#$smtp->to($mailto);
$smtp->cc($mailcc);
$smtp->data();
$smtp->datasend("To: $mailto_str\n";
$smtp->datasend("Cc: $mailcc\n";
$smtp->datasend("Frommailfrom\n";
$smtp->datasend("Subject: $subject\n";
$smtp->datasend("\n";
$smtp->datasend("$text\n\n";
$smtp->dataend();

$smtp->quit;

刚学习perl不久，代码比较简陋，呵呵。

Perl_Er

How do I send mail?

Use the sendmail program directly:

1.     open(SENDMAIL, "|/usr/lib/sendmail -oi -t -odq")
   
2.                         or die "Can't fork for sendmail: $!\n";
   
3.     print SENDMAIL <<"EOF";
   
4.     From: User Originating Mail <me\@host>
   
5.     To: Final Destination <you\@otherhost>
   
6.     Subject: A relevant subject line
   
7. 
   
8.     Body of the message goes here after the blank line
   
9.     in as many lines as you like.
   
10.     EOF
    
11.     close(SENDMAIL)     or warn "sendmail didn't close nicely";

复制代码

The -oi option prevents sendmail from interpreting a line consisting of a single dot as "end of message". The -t option says to use the headers to decide who to send the message to, and -odq says to put the message into the queue. This last option means your message won't be immediately delivered, so leave it out if you want immediate delivery.

Alternate, less convenient approaches include calling mail (sometimes called mailx) directly or simply opening up port 25 have having an intimate conversation between just you and the remote SMTP daemon, probably sendmail.

Or you might be able use the CPAN module Mail::Mailer:

1.     use Mail::Mailer;
   
2. 
   
3.     $mailer = Mail::Mailer->new();
   
4.     $mailer->open({ From    => $from_address,
   
5.                     To      => $to_address,
   
6.                     Subject => $subject,
   
7.                   })
   
8.         or die "Can't open: $!\n";
   
9.     print $mailer $body;
   
10.     $mailer->close();

复制代码

The Mail::Internet module uses Net::SMTP which is less Unix-centric than Mail::Mailer, but less reliable. Avoid raw SMTP commands. There are many reasons to use a mail transport agent like sendmail. These include queuing, MX records, and security.

[ 本帖最后由 Perl_Er 于 2009-7-6 13:16 编辑 ]

xufengnju

<code>
#!/usr/bin/perl
use strict;
use warnings;
use Net::SMTP;
use Authen::SASL;
my $smtp = Net::SMTP->new('smtp.163.com',
                           Hello => 'smtp.163.com',
                           Timeout => 30,
                           Debug   => 1,
                           );
#authentication
$smtp->auth("username_in_plain_text","password_in_plain_text");
#mail from
$smtp->mail("username\@163.com");
#rcpt to
$smtp->to("recipient\@sina.com");
#mail data
$smtp->data();
$smtp->datasend("To: recipient\n");
$smtp->datasend("\n");
$smtp->datasend("Line1\nLine2\n");
$smtp->dataend();
#close socket;disconnect from smtp server
$smtp->quit;
</code>
Net::SMTP提交用户名和密码时，需要使用Authen::SASL模块。在
http://cpansearch.perl.org/src/GBARR/libnet-1.22/Net/SMTP.pm
代码中可以看到。
很简洁。

wxlfh

也可以使用MIME::Lite模块。

小公猫

Net SMTP好用
我一般用这个