Perl 使用 SMTP 发送邮件一例

概述Perl 使用 SMTP 发送邮件一例

下面是内存溢出 jb51.cc 通过网络收集整理的代码片段。

内存溢出小编现在分享给大家，也给大家做个参考。

#!/usr/bin/perl# $ID: msg2smtp.pl,v 1.8 2007/07/29 16:30:25 polak Exp $my $usage = qq! takes a mail message on STDIN and relays it to an SMTP server. -h HOST [options]  -h HOST        (hostname of SMTP server,often 'localhost')  Options:  -p PORT        (port of the SMTP server)  -e HELO_DOMAIN (domain we use when to say helo to smtp server)  -U USERname    (ESMTP auth username)  -P PASSWORD    (ESMTP auth password)  -m MECHANISM   (ESMTP auth mechanism - default is PLAIN)  -d             (shows SMTP conversation and perl deBUGging)    !;#------------------------------------------# INDEX# 0. GPL license# 1. Module DependencIEs# 2. Set options by Command-line Arguments# 3. Read Message by STDIN# 4. Extend Net::SMTP to allow us to choose an auth mechanism# 5. Send message via SMTP#------------------------------------------# 0. GPL license##  This file is part of GNU Anubis.#  copyright (C) 2001,2002,2003 The Anubis Team.# #  GNU Anubis is free software; you can redistribute it and/or modify#  it under the terms of the GNU General Public license as published by#  the Free Software Foundation; either version 2 of the license,or#  (at your option) any later version.# #  GNU Anubis is distributed in the hope that it will be useful,#  but WITHOUT ANY WARRANTY; without even the implIEd warranty of#  MERCHANTABIliTY or fitness FOR A PARTIculaR PURPOSE.  See the#  GNU General Public license for more details.# #  You should have received a copy of the GNU General Public license#  along with GNU Anubis; if not,write to the Free Software Foundation,#  Inc.,51 Franklin Street,Fifth Floor,Boston,MA  02110-1301  USA# #  msg2smtp.pl code: Michael de Beer <[email protected]>#    ext_auth() mainly taken from the Net::SMTP module##  http://www.gnu.org/software/anubis/##------------------------------------------# 1. Module DependencIEsuse warnings;  use strict;use Getopt::Std;use vars qw!$opt_h $opt_p $opt_e $opt_U $opt_P $opt_d $opt_m!;# required MODulES:use Mail::Address;use Net::SMTP;# perl -MCPAN -e 'install Mail::Address'# perl -MCPAN -e 'install Net::SMTP'# OPTIONAL MODulES: Authen:SASL (for ESMTP auth)# perl -MCPAN -e 'install Authen::SASL'# Note: this script originally used functions from Mail::Box to:# * parse messages and# * interface with Net::SMTP# However,I discovered Mail::Box dID not support these options:#   'port username password'# So,I am not using Mail::Box.# # use Mail::Box; use Mail::Transport::SMTP;#------------------------------------------# 2. Set options by Command-line Argumentsgetopts('dh:p:e:U:P:m:');my (%smtp_options,$host,$username,$password,$auth_mech);if ($opt_h) {     $host = $opt_h;} else {    print $usage,"\n";    exit(255);} $smtp_options{Port} = $opt_p if ($opt_p);$smtp_options{Hello} = $opt_e if ($opt_e);$smtp_options{DeBUG} = 1 if ($opt_d);$username = $opt_U if ($opt_U);$password = $opt_P if ($opt_P);$auth_mech = $opt_m ? $opt_m : 'PLAIN'; # not tested other AUTH mechanisms#------------------------------------------# 3. Read Message by STDIN# read the message and parse the headers for RCPT and FROMmy ($from,@rcpt);my ($txt_head) = '';my ($txt_body) = '';# the only trick thing are To: lines that are folded# I deal with that with 4 Rules,below.my ($tmp,$readyflag,$chunk,@to_addresses);$readyflag = 0;head: while ($tmp = <STDIN>) {# Rule 1: If the line is a blank line,exit head section  if ($tmp =~ /^$/) {      if ($readyflag eq 1) {          last;      }      else {          next head;      }  }# Rule 2: If it is a folded line,add line to $chunk,skip to next line  if ($tmp =~ /^\s+\S+/) { $chunk .= $tmp; next head  };# Rule 3: If it is not a folded line,process old chunk  $_ = $chunk ? $chunk : '';  if (/^From:/i) {      s/^From://i;      my @from_addresses;      @from_addresses = Mail::Address->parse($_);      $from = pop(@from_addresses)->address;      dIE "From: address invalID" unless $from;      dIE "there is more than one From: address" if @from_addresses;      $readyflag = 1;  } elsif (/^(To|CC|BCC):/i) {      s/^(To|CC|BCC)://i;      @to_addresses = (); # re-initialize because we re-enter this loop      @to_addresses = Mail::Address->parse($_);      foreach my $obj (@to_addresses) {	  push @rcpt,$obj->address;      }  }  $txt_head .= $chunk if ($chunk);# Rule 4: start a new chunk  $chunk = $tmp;}while (<STDIN>) {   $txt_body .= $_;}#if ($smtp_options{DeBUG}) {#    print "\n---BEGINNING OF DEBUG---\n";#    print "From: $from\n"; map {print "To: $_\n"} @rcpt;#    print "MsgBody:\n$txt_body\n";#    print "---END OF DEBUG---\n";#}#------------------------------------------# 4. Extend Net::SMTP to allow us to choose and auth mechanism# We make an extend-auth method,as Net::SMTP::auth() # does not seem to accurately pick a mechanismpackage Net::SMTP;sub ext_auth { # taken from Net::SMTP,only modify $mechanisms    my ($self,$mechanisms) = @_;    require MIME::Base64;    require Authen::SASL;    my $m = $self->supports('AUTH',500,["Command unkNown: 'AUTH'"]);    return unless defined $m;    my $sasl;    if (ref($username) and UNIVERSAL::isa($username,'Authen::SASL')) {      $sasl = $username;      $sasl->mechanism($mechanisms);    }    else {      dIE "auth(username,password)" if not length $username;      $sasl = Authen::SASL->new(mechanism=> $mechanisms,callback => { user => $username,pass => $password,authname => $username,});    }    my $clIEnt = $sasl->clIEnt_new('smtp',${*$self}{'net_smtp_host'},0);    my $str    = $clIEnt->clIEnt_start;    # We dont support sasl mechanisms that encrypt the socket traffic.    # todo that we would really need to change the ISA hIErarchy    # so we dont inherit from IO::Socket,but instead hold it in an attribute    my @cmd = ("AUTH",$clIEnt->mechanism,MIME::Base64::encode_base64($str,''));    my $code;    while (($code = $self->command(@cmd)->response()) == CMD_MORE) {      @cmd = (MIME::Base64::encode_base64(	$clIEnt->clIEnt_step(	  MIME::Base64::decode_base64(	    ($self->message)[0]	  )	),''      ));    }    $code == CMD_OK;}#------------------------------------------# 5. Send message via SMTPpackage main;my $smtp = Net::SMTP->new($host,%smtp_options);$smtp or dIE "Failed to connect to SMTP server";if ($username) {   print "WARNING: Failed ESMTP auth using username '$username'...trying to send anyway\n" unless $smtp->ext_auth ($username,$auth_mech);};$smtp->mail($from) or dIE "server rejected FROM address '$from'";$smtp->to(@rcpt,{SkipBad => 1}) or dIE "server rejected all TO addresses";$smtp->data() or dIE "server crashed while preparing to send DATA";$smtp->datasend($txt_head) or dIE "server crashed while sending DATA.1";$smtp->datasend("\n") or dIE "server crashed while sending DATA.2";$smtp->datasend($txt_body) or dIE "server crashed while sending DATA.3";$smtp->dataend() or dIE "server crashed while ending DATA";$smtp->quit or dIE "server crashed while quiting - message may not be lost";;__END__# EOF

以上是内存溢出(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。

总结

以上是内存溢出为你收集整理的Perl 使用 SMTP 发送邮件一例全部内容，希望文章能够帮你解决Perl 使用 SMTP 发送邮件一例所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。