Retornar somente e-mails válidos
Publicado por Romulo 15/09/2003
[ Hits: 6.520 ]
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);
Validando lista de e-mail no MX
Notificador de Gmail no Conky.
Adicionar conta de e-mail - Postfix com domínios virtuais no MySQL
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
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
Overclocking Permanente para Drastic no Miyoo Mini Plus
Problemas de chaves (/usr/share/keyrings) no Debian
Converter os repositórios Debian para o novo formato com as chaves
Primeiras impressões do Debian 13 (6)
como resolver o problema de som do linux mint mate (4)
Rede wifi com mesmo ip da rede eth (13)
preciso saber aonde encontro pelomenos 5 mu online que tenha download ... (1)