Retornar somente e-mails válidos

Descrição

Esconder código-fonte

#!/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);