#!/usr/local/bin/perl $ARGC=@ARGV; if ($ARGC !=4) { printf "Você deve ter digitado os comandos de forma errada\n"; printf "Veja como usar corretamente...\n"; printf "perl $0
\n"; printf "Exemplo: perl $0 lista01.txt peu\@msn.com Ola index.html\n"; exit(1); } $mailtype = "content-type: text/html"; $sendmail = '/usr/sbin/sendmail'; $sender = $ARGV[1]; $subject = $ARGV[2]; $efile = $ARGV[0]; $emar = $ARGV[0]; open(FOO, $ARGV[3]); @foo = ; $corpo = join("\n", @foo); open (BANDFIT, "$emar") || die "Can't Open $emar"; $cont=0; while() { ($ID,$options) = split(/\|/,$_); chop($options); foreach ($ID) { $recipient = $ID; open (SENDMAIL, "| $sendmail -t"); print SENDMAIL "$mailtype\n"; print SENDMAIL "Subject: $subject\n"; print SENDMAIL "From: $sender\n"; print SENDMAIL "To: $recipient\n\n"; print SENDMAIL "$corpo\n\n"; close (SENDMAIL); $cont=$cont+1; printf "$cont Enviado para $recipient"; } } close(BANDFIT);