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; |
Partager