Retorna apenas emails válidos com MX válidos
Publicado por Romulo 16/09/2003
[ Hits: 6.109 ]
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 verifica se existe um servidor de e-mail válido para o domínio.
#!/usr/bin/perl # # # check_email.pl # # Recebe um arquivo contendo uma lista de e-mails separados por # # quebra de linha e um servidor de DNS e retorna somente endereços válidos com MX válidos. # # Date == begin == 16/09/03 # # Produced by --> # # # # ..... # # ,,$$$$$$$$$, Alberto Pereira # # ;$' '$$$$: Analista de suporte # # $: $$$$: # # $ o_)$$$: -"E ai linux, o que faremos hoje a noite??" # # ;$, _/\ &&:' -"O que fazemos todas as noites link, # # ' /( &&& tentaremos dominar o mundo" # # \_&&&&' # # &&&&. -DEBIAN, THE CHOICE OF NEW GNU LINUX GENERATION!!!! # # &&&&&&&: # # # # No Debian Woody necessários instalar os seguintes pacotes: # # apt-get install libemail-valid-perl libnet-dns-perl # use strict; use Net::DNS; use Mail::Address; my $file = shift or die "Use: $0 arquivo servidor\n"; my $nameserver = shift or die "Use: $0 arquivo servidor\n"; if (! -f $file) { print "Erro: $file não é um arquivo válido!\n"; } my $res = Net::DNS::Resolver->new; $res->nameservers($nameserver); open(READ, $file); while(<READ>) { chomp; my @addrs = Mail::Address->parse($_); foreach my $addr (@addrs) { my $no = 0; my $user = $addr->user; my $domain = $addr->host; if ($user =~ m/[a-zA-Z0-9_\.\-]/g) { if ($user =~ m/\//g) { $no = 1;} if ($domain =~ m/[a-zA-Z0-9\.\-]/g) { if ($domain =~ m/\//g) { $no = 1; } if ($domain =~ m/\.$/g) { $no = 1; } if ($domain =~ m/^\./g) { $no = 1; } if ($domain =~ m/\'/g) { $no = 1; } my @mx = mx($res, $domain); if (!@mx) { $no = 1;} print $addr->format,"\n" if (!$no); } } } }
Validando lista de e-mail no MX
Adicionar conta de e-mail - Postfix com domínios virtuais no MySQL
Nenhum comentário foi encontrado.
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Tem como instalar o gerenciador AMD Adrenalin no Ubuntu 24.04? (15)
Tenho dois Link's ( IP VÁLIDOS ), estou tentando fazer o failover... (0)
Pendrive não formata de jeito nenhum (4)