驼峰->下划线
SELECT REGEXP_REPLACE('initCustMoney', '([[:upper:]])(.)', '_\1\2') "initCustMoney",
REGEXP_REPLACE('custID', '([[:upper:]])(.)', '_\1\2') "custID"
FROM DUAL;
下划线->驼峰
select substr(replace(initcap('a' || 'init_cust_money'), '_', ''), 2) from dual;