[FUG-BR] Enviar email via script.perl
Fabio
binho62 em yahoo.com.br
Domingo Setembro 20 18:24:41 BRT 2009
galera, o que tem de errado aqui?
#!/usr/local/bin/perl
$arquivo = '/home/fabio/email.txt'; #arquivos com cada linha um email em meudominio
open(INFO, $arquivo) or die "Erro ao abrir o arquivo: $!";
@conteudo = <INFO>;
close (INFO);
foreach $i (@conteudo){
print "$i";
mail -s "assunto" @conteudo < cat /home/fabio/link.txt
}
Grato
____________________________________________________________________________________
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
Mais detalhes sobre a lista de discussão freebsd