一个带有 CLOB 或 VARCHAR2 输入和 CLOB 或 VARCHAR2 返回值的单个 PLSQL 函数

Question

我需要编写一个 PLSQL 函数，该函数必须同时处理 CLOB 和 VARCHAR2 输入，并分别返回 CLOB 或 VARCHAR2。但是无论输入类型如何，该函数实现的功能都是完全相同的（它执行一系列 REGEXP_REPLACE 调用）。是否可以编写一个可以同时接受 CLOB 和 VARCHAR2 并返回接收到的类型的函数？我想避免编写两个非常相似的函数，从而重复代码。

我的第一个函数是这样的：

FUNCTION Test(i_text CLOB) RETURN CLOB IS
v_text CLOB;
BEGIN
  v_text := i_text;  
  ... a series of REGEXP_REPLACE calls like v_text := REGEXP_REPLACE(v_text,...)
  RETURN v_text
END;

而我的另一个功能是：

FUNCTION Test(i_text VARCHAR2) RETURN VARCHAR2 IS
v_text VARCHAR2;
BEGIN
  v_text := i_text;  
  ... a series of REGEXP_REPLACE calls like v_text := REGEXP_REPLACE(v_text,...)
  RETURN v_text
END;

由于函数内部有大量 REGEXP_REPLACE 调用，我宁愿只有一个函数 - 如果可能的话。

CLOB 输入可能很大，因此无法在函数调用之前将 CLOB 转换为 VARCHAR2。

甚至 REGEXP_REPLACE 也适用于各种输入，例如 CHAR、VARCHAR2、NCHAR、NVARCHAR2、CLOB 或 NCLOB。所以这就是为什么我希望有一个解决方案来满足这个需求。

Answer 1

@BarbarosOzhan 是正确的，您需要一个包来获得重载能力。但是您不需要复制代码。虽然您是正确的，将 CLOB 转换为 VARCHAR2 是不可能的，但没有什么可以阻止您将 VARCHAR2 转换为 CLOB。然后，如果您不扩展正则表达式中的长度，则将结果转换回 VARCHAR2。处理 varchar2 的函数就变成了只处理转换的包装器。

create or replace package test_pkg is
    function test(i_text clob) return clob;
    function test(i_text varchar2) return varchar2;
end test_pkg;   
/

create or replace package body test_pkg is
    function test(i_text clob) return clob is
      v_text clob;
    begin
      v_text := i_text;  
      --...
      return v_text;
    end test;
    
    function test(i_text varchar2) return varchar2 is
      v_text clob;
      v_res  varchar2(32767);   -- 4000 is actually used in SQL statement
    begin
       v_text := cast(i_text as clob); 
       v_res := cast (test(v_text) as varchar2);
       return v_res;
    end test;
end test_pkg; 

您的调用例程应该预期并处理异常“ORA-06502: PL/SQL: numeric or value error: string buffer too small”

Answer 2

你可以用两个Test(Overloading in Packages)函数来创建一个包，比如

CREATE OR REPLACE PACKAGE Pkg_Test IS
  FUNCTION Test (i_text VARCHAR2) RETURN VARCHAR2
  FUNCTION Test (i_text CLOB) RETURN CLOB;
END;
/

CREATE OR REPLACE PACKAGE BODY Pkg_Test IS
  FUNCTION Test (i_text VARCHAR2) RETURN VARCHAR2 IS
   val VARCHAR2;
  BEGIN
   SELECT ...
     INTO val
     FROM tab t
    WHERE t.col1 = i_text;
    
   RETURN val; 
  END;

  FUNCTION Test (i_text CLOB) RETURN CLOB IS
   val CLOB;
  BEGIN
   SELECT ....
     INTO val
     FROM tab t
    WHERE t.col2 = i_text;
    
   RETURN val; 
  END;
END;
/

无论参数的数据类型是什么，都使用与下面相同的名称调用

BEGIN
  :result := Pkg_Test.test(:prm);
END;
/