批量獲得oracle預存程序等

  同事想把項目組寫的預存程序儲存下來，不是dump那種，而是可以隨時看，每個預存程序以獨立檔案存放。首先想到的是開發工具PL/SQL developer有儲存預存程序的功能，但是批量和篩選功能有限。toad倒是有這方面的功能，但是這些工具不是任何場合就能用的。所以，還是原始的指令碼比較可靠…

舉例：把datacore使用者下所有以CFA或者以AAC開頭的預存程序儲存到C:\procedures下。

1、建立以下預存程序
create or replace procedure get_procedure is
begin
  for x in (select distinct t.name
              from all_source t
             where t.TYPE = 'PROCEDURE'
               and t.owner = 'DATACORE'
               AND (t.name like 'ACC%' or t.name like 'CFA%')) loop
    dbms_output.put_line('spool C:\procedures\' || x.name || '.sql');
    dbms_output.put_line('select text from dba_source t where t.name =''' || x.name || '''' || ';');
    dbms_output.put_line('spool off');
  end loop;
end;

2、運行預存程序
得到輸出結果命令文本
3、設定命令視窗並運行指令碼
set pagesize 999999
set fedback off