用flashback恢复存储过程

       在工作中老是要更新存储过程，假如在更新的过程中没有备份原有的存储过程，而新的存储过程又有问题，
怎么办呢？能不能把它恢复回去呢。
想了想，突然想到了oracle 10g 中的flashback的功能。
在SOURCE$表中就能找到删除前的存储过程。
注意：
1、flashback是9i后才引起的，之前版本不能用这个方法恢复
2、从删除到恢复时的时间间隔不能超过undo_retention的设定值

下面是一个例子：

SQL> create or replace procedure p_test is
  2  begin
  3  dbms_output.put_line('this is a test');
  4  end p_test;
 
SQL> drop procedure p_test;
 
Procedure dropped

//取得SOURCE$表中对应的OBJECT_ID
SELECT obj#
  FROM obj$ AS OF TIMESTAMP TO_TIMESTAMP('2008-01-31 10:00:00', 'YYYY-MM-DD HH24:MI:SS')
 WHERE NAME = 'P_TEST';
--结果73888

SELECT T.source
  FROM source$ T AS OF TIMESTAMP TO_TIMESTAMP('2008-01-31 10:00:00', 'YYYY-MM-DD HH24:MI:SS')
 where T.obj# = 73888;
 
提取查询的结果就可以恢复原有的存储过程了。