Controler la validité d'un email

[argoet]

cela m'a été utile alors si cela peu en aider d'autres

Merci à Anil PAssi

Legerement modifié cela donne

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CREATE OR REPLACE FUNCTION check_email(Mon_Email IN Varchar2)
  RETURN Varchar2 IS
  l_dot_pos    NUMBER;
  l_at_pos     NUMBER;
  l_str_length NUMBER;
Begin
  l_dot_pos    := instr(Mon_Email ,'.');
  l_at_pos     := instr(Mon_Email ,'@');
  l_str_length := length(Mon_Email);
  IF ((l_dot_pos = 0) OR (l_at_pos = 0)  OR
      (l_dot_pos = l_at_pos + 1) OR (l_str_length < 4) OR
      (l_at_pos  = 1)  OR (l_at_pos = l_str_length) OR
      (l_dot_pos = l_str_length))
  Then
    RETURN 'KO';
  End IF;
  IF instr(substr(Mon_Email ,l_at_pos) ,'.') = 0 Then RETURN 'KO'; End IF;
  RETURN 'OK';
END check_email;

[McM]

Mouais.. mais forcemment, on va te trouver des cas qui ne marchent pas..
quand j'ai vu ça : l_dot_pos = l_at_pos + 1, j'ai vu une faille

a.b@.fr

passe

Je pense que le mieux c'est de tester les choses suivantes :
1 seul @
Taille à gauche du @ > 0
Taille à droite du @ > 0
A droite du @ : 1 seul . avec au moins 1 caractère à droite et à gauche.

[mnitu]

Une autre solution utilise des expressions régulières (à partir de Oracle 10). Et un lien utile qui discute du problème.