Oracle中如何恢复被删掉的存储过程？

在某些时候，容易误删存储过程，那么针对存储过程被删除了，我们如何进行恢复呢 ？ 这里为大家进行讲解。

1.  创建测试存储过程
SQL> conn roger/roger
Connected.
SQL> CREATE OR REPLACE PROCEDURE proc_test_drop
  2  AS
  3  BEGIN
  4     FOR x IN (SELECT sysdate FROM dual)
  5     LOOP
  6        DBMS_OUTPUT.put_line (x.sysdate);
  7     END LOOP;
  8  END proc_test_drop;
  9  /

Procedure created.

SQL> set serveroutput on
SQL> exec proc_test_drop;

06-AUG-13

PL/SQL procedure successfully completed.

SQL>

SQL> l
  1* select text,name from dba_source where owner='ROGER' and name='PROC_TEST_DROP'
SQL> /

TEXT                                              NAME
------------------------------------------------- ------------------------------
PROCEDURE proc_test_drop                          PROC_TEST_DROP
AS                                                PROC_TEST_DROP
BEGIN                                             PROC_TEST_DROP
   FOR x IN (SELECT sysdate FROM dual)            PROC_TEST_DROP
   LOOP                                           PROC_TEST_DROP
      DBMS_OUTPUT.put_line (x.sysdate);           PROC_TEST_DROP
   END LOOP;                                      PROC_TEST_DROP
END proc_test_drop;                               PROC_TEST_DROP

8 rows selected.

SQL> show user
USER is "SYS"
SQL> conn roger/roger
Connected.
SQL> drop PROCEDURE proc_test_drop;

Procedure dropped.

SQL> select text,name from dba_source where owner='ROGER' and name='PROC_TEST_DROP';

no rows selected

SQL>

—-利用闪回查询进行恢复
CREATE OR REPLACE FORCE VIEW “SYS”.”DBA_SOURCE” (“OWNER”, “NAME”, “TYPE”, “LINE”, “TEXT”) AS
  select u.name, o.name,
decode(o.type#, 7, ‘PROCEDURE’, 8, ‘FUNCTION’, 9, ‘PACKAGE’,
11, ‘PACKAGE BODY’, 12, ‘TRIGGER’, 13, ‘TYPE’, 14, ‘TYPE BODY’,
‘UNDEFINED’),
s.line, s.source
from sys.obj$ o, sys.source$ s, sys.user$ u
where o.obj# = s.obj#
  and o.owner# = u.user#
  and ( o.type# in (7, 8, 9, 11, 12, 14) OR
       ( o.type# = 13 AND o.subname is null))
union all
select /*+ ordered */ distinct u.name, o.name, ‘JAVA SOURCE’, s.joxftlno, s.joxf
tsrc
from sys.obj$ o, x$joxfs s, sys.user$ u
where o.obj# = s.joxftobn
  and o.owner# = u.user#
  and o.type# = 28

SQL> conn /as sysdba
Connected.
SQL> select text from dba_source as of timestamp sysdate-5/60/24 where owner='ROGER' and name='PROC_TEST_DROP';

TEXT
-----------------------------------------------------------------
PROCEDURE proc_test_drop
AS
BEGIN
   FOR x IN (SELECT sysdate FROM dual)
   LOOP
      DBMS_OUTPUT.put_line (x.sysdate);
   END LOOP;
END proc_test_drop;

8 rows selected.

SQL>

—-通过基表进行恢复
SQL> alter session set nls_date_format='yyyy-mm-dd hh24:mi:ss';

Session altered.

SQL> select sysdate from dual;

SYSDATE
-------------------
2013-08-06 02:46:21

SQL> select obj# from obj$ as of timestamp to_timestamp('2013-08-06 02:40:00', 'YYYY-MM-DD HH24:MI:SS') where name='PROC_TEST_DROP';

      OBJ#
----------
52148

SQL>
SQL> set long 9999999
SQL> select source
  2    from source$ as of timestamp to_timestamp('2013-08-06 02:40:00', 'YYYY-MM-DD HH24:MI:SS')
  3   where obj# = 52148
  4   order by line;

SOURCE
--------------------------------------------------------------------------------------------------------------------------
PROCEDURE proc_test_drop
AS
BEGIN
   FOR x IN (SELECT sysdate FROM dual)
   LOOP
      DBMS_OUTPUT.put_line (x.sysdate);
   END LOOP;
END proc_test_drop;

8 rows selected.

SQL>

++++利用odu等工具进行恢复

SYS_SOURCE$.sql：

CREATE TABLE “SYS”.”SOURCE$”
(
“OBJ#” NUMBER NOT NULL,
“LINE” NUMBER NOT NULL,
“SOURCE” VARCHAR2(4000)
);

SYS_SOURCE$.ctl:

–
–Generated by ODU,for table “SYS”.”SOURCE$”
–
OPTIONS(BINDSIZE=8388608,READSIZE=8388608,ERRORS=-1,ROWS=50000)
LOAD DATA
INFILE ‘SYS_SOURCE$.txt’ “STR X’0a’”
APPEND INTO TABLE “SYS”.”SOURCE$”
FIELDS TERMINATED BY X’7c’ TRAILING NULLCOLS
(
“OBJ#” ,
“LINE” ,
“SOURCE” CHAR(4000)
)

更改owner,然后将数据加载到roger用户中.
ODU> unload dict
CLUSTER C_USER# file_no: 1 block_no: 89
TABLE OBJ$ file_no: 1 block_no: 121
CLUSTER C_OBJ# file_no: 1 block_no: 25
CLUSTER C_OBJ# file_no: 1 block_no: 25
found IND$’s obj# 19
found IND$’s dataobj#:2,ts#:0,file#:1,block#:25,tab#:3
found TABPART$’s obj# 266
found TABPART$’s dataobj#:266,ts#:0,file#:1,block#:2121,tab#:0
found INDPART$’s obj# 271
found INDPART$’s dataobj#:271,ts#:0,file#:1,block#:2161,tab#:0
found TABSUBPART$’s obj# 278
found TABSUBPART$’s dataobj#:278,ts#:0,file#:1,block#:2217,tab#:0
found INDSUBPART$’s obj# 283
found INDSUBPART$’s dataobj#:283,ts#:0,file#:1,block#:2257,tab#:0
found IND$’s obj# 19
found IND$’s dataobj#:2,ts#:0,file#:1,block#:25,tab#:3
found LOB$’s obj# 151
found LOB$’s dataobj#:2,ts#:0,file#:1,block#:25,tab#:6
found LOBFRAG$’s obj# 299
found LOBFRAG$’s dataobj#:299,ts#:0,file#:1,block#:2393,tab#:0
ODU> scan extent parallel 2

scan extent start: 2013-08-06 02:42:19
scanning extent…
scanning extent finished.
scan extent completed: 2013-08-06 02:43:23

ODU> unload table sys.source$

Unloading table: SOURCE$,object ID: 72
Unloading segment,storage(Obj#=72 DataObj#=72 TS#=0 File#=1 Block#=529 Cluster=0)
295765 rows unloaded

ODU> exit

[ora10g@killdb data]$ cp SYS_SOURCE$.sql create.sql
[ora10g@killdb data]$ sqlplus roger/roger

SQL*Plus: Release 10.2.0.5.0 – Production on Tue Aug 6 02:56:52 2013

Copyright (c) 1982, 2010, Oracle.  All Rights Reserved.

Connected to:
Oracle Database 10g Enterprise Edition Release 10.2.0.5.0 – Production
With the Partitioning, OLAP, Data Mining and Real Application Testing options

SQL> @ create.sql

Table created.

SQL> exit