以下这段代码摘自oracle_pl_sql_programming_5th_edition.pdf第741页,真的是very_confusing:
package:
CREATE OR REPLACE PACKAGE t01 AS
PROCEDURE very_confusing
(
arg1 IN VARCHAR2
,arg2 IN OUT VARCHAR2
,arg3 IN OUT NOCOPY VARCHAR2
);
END t01;
CREATE OR REPLACE PACKAGE BODY t01 AS
PROCEDURE very_confusing
(
arg1 IN VARCHAR2
,arg2 IN OUT VARCHAR2
,arg3 IN OUT NOCOPY VARCHAR2
) IS
BEGIN
arg2 := 'Second value';
dbms_output.put_line('arg2 assigned, arg1 = ' || arg1);
arg3 := 'Third value';
dbms_output.put_line('arg3 assigned, arg1 = ' || arg1);
END;
END t01;
测试脚本:
DECLARE str VARCHAR2(100) := 'First value'; BEGIN dbms_output.put_line('str before = ' || str); t01.very_confusing(str, str, str); dbms_output.put_line('str after = ' || str); END;
str before = First value arg2 assigned, arg1 = First value arg3 assigned, arg1 = Third value str after = Second value