i want to check e-mail that user enter in field as form of [email protected] .
please reply me

create or replace package checks is
function check_mail (m varchar2) return boolean ;
end checks;
/

create or replace package body checks is
                function check1 (m varchar2 ) return boolean is
                begin
                if m like '%_@_%.___' or m like '%_@_%.___.__' then
                return (true);
                else
                return (false);
                end if;
                end check1;
function check2 (m varchar2) return boolean is
begin
      if instr (m , '@' ,1 ,2 ) = 0 then
          return (true);
      else
   return (false);
      end if;
end check2;
                function check3 (m varchar2) return boolean is
                begin
                   if instr (m , '.' ,1 ,3 ) = 0 then
                     return (true);
                     else
                     return (false);
                     end if;
                 end check3;
/*                  */
function check4 (m varchar2) return boolean is
begin
if instr(m , '.' , 1, 2) > 0 then
      if length (substr ( m , instr(m , '.' , 1 , 1)+1 , instr(m , '.' , 1 , 2) - instr(m , '.' , 1 , 1)-1 )) in (3,2) then
      return true;
      else
      return false;
      end if;
else 
return true;
end if;
end check4;
/*                        */
function check5 (m varchar2) return boolean is
begin
          if substr(m , 1,1) between 'a' and 'z' or substr(m , 1,1) between 'A' AND 'Z' THEN
            return (true);
            else
            return (false);
            end if;
   
end check5;
           
                 function check6 (m varchar2) return boolean is
                 x number(2) := 0;
                 begin
                        for i in 1..length(M) loop
                            if   substr(M , i, 1) between 'a' and 'z' 
                                 or  substr(M , i, 1) between 'A' and 'Z'
                                 OR  substr(M , i, 1) BETWEEN '0' and '9' 
                                 or   substr(M , i, 1)   in ( '_' , '.' , '@' )THEN
                            x:= x + 1;
                            end if;
                    end loop;
                 
                          if x= LENGTH(M) then
                          return true;
                          else
                          return false;
                          end if;
                           end check6;

function check7 (m varchar2) return boolean is
x number(2) := 0;
w varchar2(10)  := substr(m , instr(m , '.' , 1 , 1)  +1, length(m) - instr(m , '.' , 1 , 1) );
begin 
for i in 1..length(w) loop
                            if   substr(w , i, 1) between 'a' and 'z' 
                                 or  substr(w , i, 1) between 'A' and 'Z'
                                  or   substr(w , i, 1)   = '.' THEN
                            x:= x + 1;
                            end if;
                    end loop;
                 
                          if x= LENGTH(w) then
                          return true;
                          else
                          return false;
                          end if;
end check7;

function check8 (m varchar2) return boolean is
begin 
if instr(m,'.',1,2)>0 then
if  length (substr(m , instr(m , '.' , 1 , 2)  +1 )) = 2 then
                          return true;
                          else
                          return false;
                          end if;
else
return true;
end if;
end check8;
 
function check_MAIL (m varchar2) return boolean is

BEGIN
IF CHECK1(M) AND CHECK2(M) AND CHECK3(M) AND CHECK4(M)
AND CHECK5(M) and check6(m) and check7(m) and check8(m) THEN
RETURN TRUE;
ELSE
RETURN FALSE;
END IF;

END CHECK_MAIL;

end checks;
/

السلام عليكم ورحمة الله وبركاته
بعد التحية
اخي فالله
اتمني ان تكون وجدت رد لسؤالك في مشاركة الاخ العزيز moody
وشكرا لك اخي moody ولا تحرمنا من مشاركتك الجميلة والفعالة
اخوك فالله احمد زين
وفقك الله الى ماتحب ويرضي