Obscure_emailaddress

Obscure_emailaddress.sql

-- https://www.rpgpgm.com/2024/01/sql-repeat-scalar-function.html

-- IBM Db2 for i

  SELECT EMAIL_ADDRESS,
         SUBSTR(EMAIL_ADDRESS, 1, 1) ||
         REGEXP_REPLACE(LOWER(SUBSTR(EMAIL_ADDRESS, 2,
         (LOCATE_IN_STRING(EMAIL_ADDRESS, '@') - 2))),
        '[a-z]|[0-9]|[._]', 'x')
        || SUBSTR(EMAIL_ADDRESS, LOCATE_IN_STRING(EMAIL_ADDRESS, '@'))
 FROM TESTFILE;
 
 -- An alternative method 
SELECT EMAIL_ADDRESS,
       SUBSTR( EMAIL_ADDRESS, 1, 1) ||
       repeat('x', LOCATE_IN_STRING( EMAIL_ADDRESS, '@') -2) ||
       SUBSTR( EMAIL_ADDRESS, LOCATE_IN_STRING(EMAIL_ADDRESS, '@'))
FROM TESTFILE;