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就是我们要的结果啦，可以拿到其他服务器直接执行。