Oracle实现SQL的isnumeric 函数

CREATE OR REPLACE FUNCTION isnumeric(str in VARCHAR2) return NUMBER
is
begin
  if str is null 
  then 
    return 0;
  else
   -- if regexp_like(str,'^([a-z]+|[0-9]+)$')  --只包含数字0-9，小写字母a-z
	if regexp_like(str,'^[0-9\.]+$')  --只包含数字0-9，,小数点.
    THEN
      return 1;
    else
      return 0;
    end if;
  END IF;
END;

 功能和使用方法同SQL版一样，都是数字，返回1，否则返回0。

另，网上广为流传的isnumeric正则写法：

IF regexp_like (str, '^(-{0,1}+{0,1})[0-9]+(.{0,1}[0-9]+)$')  实际上是存在严重bug的。小数点不能出现在开头。否则会死循环。程序直接卡死。而且写法啰嗦。