[Cascavel-pm] Como validar um e-mail?

[Cláudio]

Tem um módulo que já verifica isso integralmente, chama-se: Mail::VRFY, 
veja exemplos em: http://search.cpan.org/~jkister/Mail-VRFY-0.56/VRFY.pm

mas caro queira somente verifica o email, use o regex dessa função que é:

if ($email =~ 
/^(([a-z0-9_\.\+\-\=\?\^\#]){1,64})\@((([a-z0-9\-]){1,251}\.){1,252}[a-z0-9]{2,4})$/i) 
{
    printf ("O email %s está correto\n",$email);
} else {
   printf ("O email %s é um email invalido\n",$email);
}

André Garcia Carneiro wrote:
>> Então aceitando apenas:
>> "@", "-", ".", "_", "+", letras e números (os demais não são necessários).
>>     
>  
>   
>> O regex abaixo não funcionou (ou usei de forma errada)
>> $email =~ /^[\._\w]+@[\._\w]+$/;
>>
>> Gostaria de fazer uma if, falando se tal $email é válido ou não...
>>     
>
> que tal 
>
> if($email =~ /[\._\w]+@[\._\w]+$/){ 
>         print 'Email valido!' ;
> }
> else
> {
>          print 'Email inválido!' ;
> }
>
> Não me leve a mal, mas você não concorda que seria melhor você ler um pouco sobre perl(e talvez um pouco de
> introdução a lógica de programação) ao invés de tentar aprender por 'osmose'?
>
> Sugestões: 
>
> www.perl.org
> www.perlmonks.org
> www.cpan.org
> www.perldoc.perl.org
>
> Livros de cabeceira...
>
> Programming Perl
> Learning Perl
> Perl Best Pratices
>
> Esses são só pra começar. Pode achar boa parte do conteúdo em http://books.google.com
> Claro que os conteútdos não estão completos, isso seria contra a lei de direitos autorais. É só pra você
> começar a se ambientar, e sentir vontade de comprar o livro.... :-D
>
>
> Cheers!!!!
>
> --
> André Garcia Carneiro
> Developer(Perl/PHP)
> Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>   


-- 
Cláudio Borges 
<claudio[at]onerd.com.br>
System Security Administrator
Fone: +55 11 8261-7347