Plsql ile Mail Adresi Dogrulama

Kullanıcının girdiği mail adresinin bir mail adresi formatında yazılıp yazılmadığını
plsql ile kontrol edelim, bunu yaparken regular expression(düzenli ifadeler) kullanacağız..

SELECT REGEXP_INSTR('&mail_Adresi','^[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,4}$') FROM dual ;

Yukarıdaki sql ile verilen mail adresi uygunsa 1, değilse 0 sonucu alabiliriz,ama bunu mail geçen
her yerde yazmaktansa, fonksiyon yazıp bu fonksiyonu çağırırsak işimiz daha kolaylaşır.

Mail Adresi Dogrulama Fonksiyonu..

CREATE OR REPLACE FUNCTION MAIL_DOGRULA(MAIL_ADRESI_ IN VARCHAR2)
  RETURN NUMBER AS
  A NUMBER;
BEGIN
  SELECT REGEXP_INSTR(MAIL_ADRESI_,'^[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,4}$')
    INTO A
    FROM DUAL;
  IF A = 1 THEN
    RETURN 1;
  ELSE
    RETURN 0;
  END IF;
END MAIL_DOGRULA;

Kullanımı:

SELECT MAIL_DOGRULA('omer@omeracar.com.tr') FROM DUAL;
1

IF MAIL_DOGRULA(customer_mail_)=1 then 
...............
ELSE
...............
END IF;

Umarım faydalı olur..