Retornar somente e-mails válidos
Publicado por Romulo 15/09/2003
[ Hits: 6.450 ]
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);
Apagar MAILER-DAEMON da fila de email
Remover caixas postais do Cyrus IMAP
Notificador de Gmail no Conky.
tux-gpt - Assistente de IA para o Terminal
Instalação e configuração do Chrony
Programa IRPF - Guia de Instalação e Resolução de alguns Problemas
O Que Fazer Após Instalar Ubuntu 25.04
O Que Fazer Após Instalar Fedora 42
Debian 12 -- Errata - Correções de segurança
Instalando o Pi-Hole versão v5.18.4 depois do lançamento da versão v6.0
Liberação de alguns links no squid (23)
NAT LoopBack - Hairpin NAT (1)
Alguém poderia me ajudar a escolher peças pra montar um desktop? (14)