DECLARE
text           VARCHAR2(100) := ‘kart no: 1234 1234 1234 1234’;
regex   VARCHAR2(100)  := ‘[0-9]{4} [0-9]{4} [0-9]{4} [0-9]{4}’;

credit_card_1  VARCHAR2(100)  := ‘1234 1234 1234 1234’;
credit_card_2  VARCHAR2(100)  := ‘123c 1234 1234 1234’;
BEGIN
— REGEXP_INSTR
IF REGEXP_INSTR(text, regex) > 0 THEN
DBMS_OUTPUT.put_line(‘REGEXP_INSTR:text ifadeniz  regex değerlerini içeriyor’);
END IF;

— REGEXP_LIKE
IF REGEXP_LIKE(credit_card_1, regex) THEN
DBMS_OUTPUT.put_line(‘REGEXP_LIKE: kart numaranız regex değerlerinizi içeriyor’);
END IF;

IF NOT REGEXP_LIKE(credit_card_2, regex) THEN
DBMS_OUTPUT.put_line(‘NOT REGEXP_LIKE: kart numaranız regex değerlerinizi içerMİyor’);
END IF;

— REGEXP_REPLACE
DBMS_OUTPUT.put_line(‘REGEXP_REPLACE: ‘ ||REGEXP_REPLACE(text, regex, ‘**** **** **** ****’));

— REGEXP_SUBSTR
DBMS_OUTPUT.put_line(‘REGEXP_SUBSTR: ‘ ||REGEXP_SUBSTR(text, regex));
END;