Retornar somente e-mails válidos
Publicado por Romulo 15/09/2003
[ Hits: 6.503 ]
Recebe um arquivo contendo uma lista de e-mails separados por quebra de linha e retorna somente os endereços válidos. Além de verificar a sintaxe do e-mail, também pode verificar se existe um servidor de e-mail válido para o domínio.
#!/usr/bin/perl -w # valida_email.pl # Recebe um arquivo contendo uma lista de e-mails separados por # quebra de linha e retorna somente os endereços válidos. # # Programado por: Fábio Berbert de Paula # <fabio@vivaolinux.com.br> # http://www.vivaolinux.com.br # # Rio de Janeiro, 15 de Setembro de 2003 # # Para instalar o módulo Email::Valid no Debian digite: # apt-get install libemail-valid-perl use Email::Valid; my $lista = shift or die "Use: $0 lista_de_email.txt\n"; if (! -f $lista) { print "Erro: $lista não é um arquivo válido\n"; exit; } open(READ, $lista); while (<READ>) { chomp; if (Email::Valid->address($_)) { print $_ . "\n"; } # descomente as linhas abaixo e comente as acima se desejar # verificar se existe um host válido para o endereço de # e-mail informado. # # if (Email::Valid->address(-address => "$_", -mxcheck => 1)) { # print $_ . "\n"; # } } close(READ);
Notificador de Gmail no Conky.
Adicionar conta de e-mail - Postfix com domínios virtuais no MySQL
Customizar a Instalação do Linux Debian com Preseed
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
O que você está ouvindo agora? [2] (191)
Procrastinação e autossabotagem são problemas muito comuns na sociedad... (8)