Retornar somente e-mails válidos
Publicado por Romulo 15/09/2003
[ Hits: 6.514 ]
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);
Remover caixas postais do Cyrus IMAP
Apagar MAILER-DAEMON da fila de email
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Autologin: praticidade ou não?
Instalação do Onion OS no Miyoo Mini e Miyoo Mini Plus
Proteja seu Linux Mint com o Timeshift: Restaure o sistema mesmo que ele não inicie!
Problemas com Go-Global AppController no Ubuntu 24.04.3 (2)
Jogos baixados na Central de Aplicativos mas que não abrem (2)