PHP如何捕获PL/SQL匿名块抛出的自定义异常？

我在PHP应用中通过Propel执行匿名块调用PL/SQL包的DO_IT存储过程，代码如下：

try {
    $anonymousBlockStr = '
        BEGIN
           MY_PACKAGE.DO_IT(' . $paramStr . '); 
        END;';
    $connectionObj->exec($anonymousBlockStr);
} catch (Exception $e) {
    $myLoggerObj->log($e->getMessage());
}

PL/SQL包定义：

create or replace PACKAGE MY_PACKAGE
IS

  PROCEDURE DO_IT(MY_PARAM IN VARCHAR2);
  MY_EXCEPTION EXCEPTION;
  
END MY_PACKAGE;

包体及存储过程实现：

create or replace PACKAGE BODY MY_PACKAGE_BODY
AS
  PROCEDURE DO_IT(MY_PARAM IN VARCHAR2, IN_LAYOVER_COLUMN_NAME IN VARCHAR2) AS
        v_stmt           VARCHAR2(1000) := '';
        v_count          NUMBER := 0;
        MY_EXCEPTION     EXCEPTION;
        PRAGMA EXCEPTION_INIT (MY_EXCEPTION, -20100);
    BEGIN
        v_stmt := 'SELECT COUNT(*) FROM dual WHERE 1 = 1;
        EXECUTE IMMEDIATE v_stmt INTO v_count;
        IF v_count > 0 THEN
            raise_application_error (-20100, ''1 = 1!'');
        END IF;
        exception when MY_EXCEPTIONthen
        sys.dbms_output.put_line(''Exception was raised'');
        RAISE;
 
  END DO_IT;

END MY_PACKAGE_BODY;

在数据库IDE中直接调用该过程能看到错误，但PHP的try-catch无法捕获该自定义异常；不过过程中的Oracle内置异常可正常被PHP捕获。请问如何将匿名块的异常传递到PHP端？

1. 修复PL/SQL代码中的语法与逻辑错误 #

你的PL/SQL包体存在多个问题，直接导致异常无法正确传递到PHP：

• 语法错误：异常处理块的when MY_EXCEPTIONthen缺少空格，应为when MY_EXCEPTION then
• 异常重复定义：包规范中已经定义MY_EXCEPTION，包体内重复定义会导致作用域冲突，异常关联的错误码失效
• 动态SQL语法错误：v_stmt赋值末尾多了分号，EXECUTE IMMEDIATE执行时会触发语法错误
• 参数不匹配：包规范中DO_IT仅定义1个参数，但包体中声明了2个参数，调用时会触发参数不匹配错误

修正后的包体代码：

create or replace PACKAGE BODY MY_PACKAGE
AS
  PRAGMA EXCEPTION_INIT (MY_EXCEPTION, -20100);

  PROCEDURE DO_IT(MY_PARAM IN VARCHAR2) AS
        v_stmt           VARCHAR2(1000) := '';
        v_count          NUMBER := 0;
    BEGIN
        v_stmt := 'SELECT COUNT(*) FROM dual WHERE 1 = 1';
        EXECUTE IMMEDIATE v_stmt INTO v_count;
        IF v_count > 0 THEN
            raise_application_error (-20100, '1 = 1!');
        END IF;
    EXCEPTION 
        WHEN MY_EXCEPTION THEN
            sys.dbms_output.put_line('Exception was raised');
            RAISE; -- 必须显式重新抛出异常，让上层（匿名块、PHP）捕获
  END DO_IT;

END MY_PACKAGE;

2. 优化PHP端调用逻辑 #

匿名块本身无需额外捕获异常，只要PL/SQL过程正确抛出异常，Propel底层的OCI驱动就能将异常传递到PHP的catch块。另外禁止直接拼接参数，避免SQL注入风险，建议使用绑定变量：

修正后的PHP代码：

try {
    $anonymousBlockStr = '
        BEGIN
           MY_PACKAGE.DO_IT(:my_param); 
        END;';
    $stmt = $connectionObj->prepare($anonymousBlockStr);
    $stmt->bindParam(':my_param', $yourParamValue);
    $stmt->execute();
} catch (Exception $e) {
    $myLoggerObj->log($e->getMessage());
}

3. 核心原理说明 #

Oracle中使用raise_application_error抛出的自定义异常（错误码范围-20000到-20999），只要PL/SQL的异常处理块没有吞噬异常（必须显式RAISE），就会被OCI驱动捕获，最终转换为PHP的Exception对象，被你的try-catch块捕获到。

内容的提问来源于stack exchange，提问作者Dirk_Beo