Adresse Email valide

Bonjour,
Pour un besoin particulier, j'ai dû me mettre à perl. J'ai cette fonction pour vérifier qu'un email est syntaxiquement valide :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

sub CHECK_EMAIL {   $email = $_[0];   if ($email =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ || $email !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) { return 0; }   else {   return 1; } }

---

Ce que je veux maintenant, c'est de tester la validité du nom de domaine de l'email pour m'assurer que l'email est réellement valide. Comment pourrais-je le faire ?

Merci

Tu pourrais faire une requête DNS. Par ailleurs je te conseille d'utiliser plutôt un module pour cette vérification de la validité d'une adresse email, la norme est horriblement compliquée.

--
Jedaï

Merci beaucoup Jedai. Mais, je fais mes premiers pas en perl et j'ai besoin d'un peu plus de détail. Concrètement, comment dois-je me servir du module dont tu parles?
Merci.

Comme écrit sur dans page founie Jedai, tu t'en sert tel que :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

#!/usr/bin/perl   use Regexp::Common qw[Email::Address]; use Email::Address;   while (<>) { my (@found) = /($RE{Email}{Address})/g; my (@addrs) = map $_->address, Email::Address->parse("@found"); print "X-Addresses: ", join(", ", @addrs), "\n"; }

---

Fais des essais avec ce code puis modifie-le à ta convenance.

Auparavant il faudra installer le module Regexp::Common::Email::Address :

Code:

---

cpan -i Regexp::Common::Email::Address

---

Tu dois aussi pouvoir regarder du coté de ce module : Mail::CheckUser ou encore Net::ValidMX ou encore et encore : Email::Valid.

A tous les experts, quel module parmi la pléthore de module validant un email est-il préférable d'utiliser ?

Bien qu'il soit toujours conseillé d'utiliser des modules, des fois je ne suis pas partisant et j'use de mes propres techniques (j'aime bien faire les choses)

Pour vérifier la validité d'un mail,

-> je look le serveur de mail avec host
-> je "parle SMTP" ( ou SMTPes comme tu veux) en utilisant netctat.
-> j'analyse la réponse, échec ou succès pour savoir si l'adresse mail est valide.

3-4 ligne pour la vérification, pourquoi utiliser un module ? :p

tu pourrais mettre ton code pour les autres alors.

Sinon il dois y avoir des modules qui font la même chose que toi, voir mieux ;), c'est pour ça qu'il est toujours intéressant de prendre quelques minutes pour fouiller le cpan avant de se lancer dans le code.

Citation:

---

Envoyé par mensoif

pourquoi utiliser un module ? :p

---

Pour être portable...
Les commandes dont tu parles ne sont pas exemple pas disponibles sur mon système.

Citation:

---

Envoyé par djibril

tu pourrais mettre ton code pour les autres alors.

Sinon il dois y avoir des modules qui font la même chose que toi, voir mieux ;), c'est pour ça qu'il est toujours intéressant de prendre quelques minutes pour fouiller le cpan avant de se lancer dans le code.

---

Le code n'est pas trop perlien, mais j'peux le filler quand même,
en p'tit shell bash ca peut le faire aussi

$ host -t mx free.fr
>free.fr mail is handled by 10 mx1.free.fr.
>free.fr mail is handled by 20 mx2.free.fr.

$ telnet mx1.free.fr 25
#netcat, ssh , ce que tu veux tant que tu peux dialoguer en mode connecte #avec un hote

Ensuite tu parles SMTP soit
HELO moto
MAIL FROM <moto@dunkerq.com>
RCPT TO <addresse@tester.com> # reponse = 250 adresse valide 550 adresse non valide
QUIT

Citation:

---

Pour être portable...
Les commandes dont tu parles ne sont pas exemple pas disponibles sur mon système.

---

C'est bien répondus, han dans ma ratiche, mais le truc, c'est que je ne réagis plus avec l'os windows ( en présumant que se soit celui que tu utilises) et cela me portera des ennuis un jour je pense.

En tous cas je te fournis l'équivalent de la commande host sous win,

> nslookup -qtype=mx free.fr ;)

J'ai testé Mail::CheckUser et Email::Valid, et sans être allé regarder dedans, je suppose qu'ils réalisent la même chose, de manière portable, et très simplement.

Citation:

---

$ perl -MMail::CheckUser -e 'print Mail::CheckUser::check_email(q(toto@my_google.fr)) ? "OK\n" : "BAD email\n"'
BAD email

$ perl -MEmail::Valid -e 'eval { print Email::Valid->address( -address => q(tutu@my_google.fr), -mxcheck => 1) ? "OK\n"
: "BAD email ($Email::Valid::Details)\n"; }; print "Error : $@" if $@;'
BAD email (mxcheck)

---