如何使用Oracle regexp编写函数来测试域名称?

我的regex技能很弱,所以我希望有人能来解决这个问题:

create or replace
FUNCTION IS_VALID_DOMAIN (p_DOMAIN IN VARCHAR2) RETURN BOOLEAN IS
BEGIN
  RETURN REGEXP_LIKE(p_DOMAIN, '^[a-z0-9][a-z.0-9]*[a-z]$');
end;

• 只有字母数字字符。
• 接受“.”和“-”,但不接受第一个字符,也不接受最后一个字符。

应该是这样的:

function isSyntaxeDomaineOk(pDomain varchar2) return boolean is
begin
   return regexp_like(pDomain, '^[a-z0-9][-a-z.0-9]*[a-z0-9]$');
end isSyntaxeDomaineOk;

function isSyntaxeDomaineOk(pStr varchar2, pChar4Space varchar2 default null) return boolean is
begin
    return regexp_like(pStr, '^[a-z0-9][-a-z.0-9]*[a-z0-9]$') 
                              and not regexp_like(pStr, '\.\.');
end isSyntaxeDomaineOk;

哦。