sendemlgroup.pl

用PERL写的群发邮件的脚本,内有制作邮件模板的说明

#!/usr/bin/perl -w

sub convertW2LFormat {
    my ($instr) = @_;
    $instr =~ s/[\n\r]+//;
    return $instr;
}

sub send_email {
    my ($address,$eml) = @_;
    my $line = "";

    open(EMLFILE, "<$eml") || die("no this file");
    open(MAIL,'|/usr/sbin/sendmail -t');
    while($line = <EMLFILE>) {
	$line = &convertW2LFormat($line);
        if($line =~ /^To:/) {
             $line = "To: "."$address";
	     print "$line \n";
        }
	print MAIL $line,"\n";
    }
    close(MAIL);
    close(EMLFILE);
}

sub search_for_sending {
    my ($search_dir, $email) = @_;
    my @list = ();
    my $diritem = "";

     @list = `cat $search_dir`;
    chomp(@list);
    chomp($email);
    foreach $diritem ( @list ) {
        $diritem =~ tr/[\/+]/\//s;
	print "Send email to $diritem.\n";
       &send_email("$diritem", "$email");
    }
}

use strict;

if(@ARGV != 2) {
    printf "Usage: sendemlgroup.pl <emaillist.txt> <email>\n";
    exit 1;
}

&search_for_sending(@ARGV);