通過shell指令碼檢視procedure的資訊

在一個schema中，可能含有大量的procedure, 有時候想檢視具體的資訊，一般得通過toad,plsql dev等工具來檢視，有時候在儘可能擺脫圖形工具的前提下，想能夠儘快的查詢一些資訊，還是使用shell指令碼更快，更準，更直接。

可以使用如下的shell指令碼來查詢procedure的資訊。
以下的指令碼可以查詢是否有需要的prcedure資訊。

PROC_OWNER=`sqlplus -silent $DB_CONN_STR@$SH_DB_SID < set pagesize 40 feedback off verify off heading on echo off
col owner format a20
col object_name format a30
set linesize 150
select owner, object_name,object_id,object_type,aggregate,pipelined,parallel,interface,deterministic,authid from dba_procedures
where owner=upper('$1')   and  object_type='PROCEDURE' and object_name like '%'||upper('$2')||'%'
/
exit;
END`

if [ -z "$PROC_OWNER" ]; then
 echo "no object exists, please check again"
 exit 0
else
 echo '*******************************************'
 echo " $PROC_OWNER    "
 echo '*******************************************'
fi

以下的指令碼可以檢視對應的procedure資訊

PROC_OWNER=`sqlplus -silent $DB_CONN_STR@$SH_DB_SID < set pagesize 40 feedback off verify off heading on echo off
col owner format a20
col object_name format a30
set linesize 150
select owner, object_name,object_id,object_type,aggregate,pipelined,parallel,interface,deterministic,authid from dba_procedures
where owner=upper('$1')   and  object_type='PROCEDURE' and object_name like '%'||upper('$2')||'%'
/
exit;
END`

if [ -z "$PROC_OWNER" ]; then
 echo "no object exists, please check again"
 exit 0
else
 echo '*******************************************'
 echo " $PROC_OWNER    "
 echo '*******************************************'
fi

指令碼執行的結果如下：

[ora11g@rac1 dbm_lite]$ ksh findproc.sh n1
*******************************************
 
OWNER                OBJECT_NAME                     OBJECT_ID OBJECT_TYPE   AGG PIP PAR INT DET AUTHID
-------------------- ------------------------------ ---------- ------------- --- --- --- --- --- ------------
N1                   TEST_DUMP_CSV                       15163 PROCEDURE     NO  NO  NO  NO  NO  DEFINER   
*******************************************
[ora11g@rac1 dbm_lite]$ ksh showproc.sh n1 test_dmp_csv
no object exists, please check again

[ora11g@rac1 dbm_lite]$ ksh showproc.sh n1 test_dump_csv
*******************************************
 
OWNER                OBJECT_NAME                     OBJECT_ID OBJECT_TYPE   AGG PIP PAR INT DET AUTHID
-------------------- ------------------------------ ---------- ------------- --- --- --- --- --- ------------
N1                   TEST_DUMP_CSV                       15163 PROCEDURE     NO  NO  NO  NO  NO  DEFINER   
*******************************************
.
procedure test_dump_csv
as
    l_rows  number;
begin
    l_rows := dump_csv( 'select *
                           from t
                           ',
                        ',', '/tmp', 'test.dat' );
end;

來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/23718752/viewspace-1263598/，如需轉載，請註明出處，否則將追究法律責任。