perl 发送邮件脚本

代码

# !/usr/bin/perl
use Net :: SMTP;
use MIME :: Base64;

# ###############
# 自动签到脚本 #
################

$host = ' 10.182.131.153 ' ; # SMTP服务器地址

###########################
#
# $host: smtp服务器
# $auth: 邮件账户
# $password: 邮件账户密码
# $to: 要发送的目标
# $mail_body: 邮件内容
#
###########################

sub send_mail {
my ( $host , $auth , $password , $to , $mail_body ) = @_ ;
my $smtp = Net :: SMTP -> new(
Host => $host ,
Hello => $host ,
Timeout => 30 ,
Debug => 1
);

$smtp -> auth( substr ( $auth , 0 , index ( $auth , ' @ ' )) , $password );
$smtp -> mail( $auth );
$smtp -> to( $to );
$smtp -> bcc( $auth );
$smtp -> data();
$smtp -> datasend( " Content-Type:text/plain;charset=GB2312\n " );
$smtp -> datasend( " Content-Transfer-Encoding:base64\n " );
$smtp -> datasend( " From:$auth \n " );
$smtp -> datasend( " To:$to \n " );
$smtp -> datasend( " Subject:=?gb2312?B? " . encode_base64( $mail_body , '' ) . " ?=\n\n " );
$smtp -> datasend( " \n " );

$smtp -> datasend(encode_base64( $mail_body , '' ) . " \n " );
$smtp -> dataend();
$smtp -> quit;
}

# 获取命令行参数
if ( @ARGV < 1 ) {
$conf_file = ' ./mailusers.conf ' ; # 默认配置文件
}
else {
$conf_file = $ARGV [ 0 ]; # 获取配置文件名
}

# 打开配置文件和日志文件
open CONF_FILE , $conf_file or die " Open config file [$conf_file] failed! \n " ;
open LOG_FILE , ' >>send.log ' or die " Open send.log failed! $!\n " ;
while ( < LOG_FILE > ) {
chomp ;
if ( $_ =~ /^ # +/) {
next ; # 跳过注释行
}

@line = split /\ s +/, $_ ;
if ( @line != 4 ) {
next ; # 跳过空行
}

# 发送邮件
send_mail( $host , $line [ 0 ] , $line [ 1 ] , $line [ 2 ] , $line [ 3 ]);
print LOG_FILE " [ " . localtime () . " ] send_mail($host, $line[0], $line[1], $line[2], $line[3]); \n " ;
}

close CONF_FILE;
close LOG_FILE;

 

转载于:https://www.cnblogs.com/mouse1/archive/2009/12/15/1624685.html