以下这段代码摘自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