数据库把字段转成驼峰格式的函数

把unit_selling_price自动转成unitSellingPrice
代码如下

 --把字段转成驼峰格式
  FUNCTION get_hump_value(p_value VARCHAR2) RETURN VARCHAR2 IS 
    l_return VARCHAR2(2000);
    l_index  NUMBER;
  BEGIN
    l_index := instr(p_value, '_');
    IF l_index <= 0 THEN
      RETURN lower(p_value);
    ELSIF l_index = 1 THEN 
      l_return := l_return || upper(substr(p_value, l_index + 1, 1)) || get_hump_value(substr(p_value,  l_index + 2));
    ELSE 
      l_return := l_return || lower(substr(p_value, 1, l_index - 1)) || get_hump_value(substr(p_value, l_index )); 
    END IF; 
    RETURN l_return; 
  EXCEPTION
    WHEN OTHERS THEN
      dbms_output.put_line (SQLERRM);
      RETURN p_value;
  END;