Oracle中，過程、type、函數等對象的源碼可以通過USER_SOURCE或DBA_SOURCE查詢；注意觀察查詢結果中，帶有LINE字段，表示該段源碼的行號。
所以我們可以通過拼接"CREATE OR REPLACE PACKAGE"拼接查詢結果，生成創建過程、函數等的sql語句，舉例：
SET HEADING OFF;
SET FEEDBACK OFF;
--每行限制200，不然存儲過程換行會報錯
SET LINESIZE 200;
SPOOL prc.sql;
SELECT TEXT
FROM (SELECT NAME,
TYPE,
LINE,
CASE A.LINE
WHEN 1 THEN
'CREATE OR REPLACE ' || A.TEXT
ELSE
A.TEXT
END TEXT
FROM USER_SOURCE A
WHERE TYPE IN ('PROCEDURE', 'PACKAGE', 'PACKAGE BODY')
AND A.NAME <> 'PR_TEST_PROC'
UNION ALL
--每個存儲過程后需加/ 否則不會執行
SELECT DISTINCT B.NAME, B.TYPE, MAX(B.LINE) + 1 LINE, '/'
FROM USER_SOURCE B
WHERE TYPE IN ('PROCEDURE', 'PACKAGE', 'PACKAGE BODY')
AND B.NAME <> 'PR_TEST_PROC'
GROUP BY B.NAME, B.TYPE) T
JOIN USER_OBJECTS S
ON T.NAME = S.OBJECT_NAME
AND T.TYPE = S.OBJECT_TYPE
--WHERE S.STATUS = 'VALID'
ORDER BY T.NAME, T.TYPE, T.LINE;
SELECT 'quit' FROM DUAL;
SPOOL OFF;
quit
生成的prc.sql就是我們要的結果啦，可以拿到其他服務器直接執行。