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

jeanron100發表於2014-09-04
原文網址 : http://blog.itpub.net/23718752/viewspace-1263618/
指令碼Package

有時候想檢視一個package的資訊，但是對於package的名字不是很確定，比如只知道一個大概，知道一些關鍵字，這個時候通過圖形工具是查詢不到package的資訊的，而且對於package的資訊，我只關心package裡面有哪些儲存過程，哪些函式等，看看簡單的引數情況就可以了，類似sqlplus的desc的形式。
shell指令碼的實現如下，
以下的指令碼是檢視是否有對應的package資訊。
PROC_OWNER=`sqlplus -silent $DB_CONN_STR@$SH_DB_SID < set pagesize 50 feedback off verify off heading on echo off
col owner format a20
col object_name format a30
col subobject_name format a10
set linesize 150
break on object_name
select object_name,owner,subobject_name,object_type,object_id, created,last_ddl_time,status
from dba_objects where object_type like 'PACKAGE%' and object_name like upper('$2%') and owner=upper('$1')
order by object_name
/
exit;
END`
if [ -z "$PROC_OWNER" ]; then
echo "no object exists, please check again"
exit 0
else
echo '*******************************************'
echo " $PROC_OWNER    "

 

PACK_LIST=` sqlplus -s  $DB_CONN_STR@$SH_DB_SID < col name format a30
col text format a100
set linesize 200
set pages 50
break on name
select name,text  from dba_source where owner like UPPER('$1') and name like upper('$2%') and type='PACKAGE'
and (text like '%PROCEDURE %' or text like '%FUNCTION %' )
order by name,line;
exit;
END`
echo "  $PACK_LIST    "
echo '*******************************************'
fi 
exit

 執行指令碼的情況如下所示。

[ora11g@rac1 dbm_lite]$ ksh findpack.sh sys dbms_metadata
*******************************************
 
OBJECT_NAME                    OWNER                SUBOBJECT_ OBJECT_TYPE          OBJECT_ID CREATED   LAST_DDL_ STATUS
------------------------------ -------------------- ---------- ------------------- ---------- --------- --------- -------
DBMS_METADATA                  SYS                             PACKAGE BODY             11981 23-JAN-14 23-JAN-14 VALID
                               SYS                             PACKAGE                   8399 23-JAN-14 23-JAN-14 VALID
DBMS_METADATA_BUILD            SYS                             PACKAGE                   8401 23-JAN-14 23-JAN-14 VALID
                               SYS                             PACKAGE BODY             11984 23-JAN-14 23-JAN-14 VALID
DBMS_METADATA_DIFF             SYS                             PACKAGE BODY             11986 23-JAN-14 23-JAN-14 VALID
                               SYS                             PACKAGE                   8405 23-JAN-14 23-JAN-14 VALID
DBMS_METADATA_DPBUILD          SYS                             PACKAGE BODY             11985 23-JAN-14 23-JAN-14 VALID
                               SYS                             PACKAGE                   8403 23-JAN-14 23-JAN-14 VALID
DBMS_METADATA_INT              SYS                             PACKAGE BODY             11982 23-JAN-14 23-JAN-14 VALID
                               SYS                             PACKAGE                   9666 23-JAN-14 23-JAN-14 VALID
DBMS_METADATA_UTIL             SYS                             PACKAGE                   9681 23-JAN-14 23-JAN-14 VALID
                               SYS                             PACKAGE BODY             11983 23-JAN-14 23-JAN-14 VALID   
 
NAME                           TEXT
------------------------------ ----------------------------------------------------------------------------------------------------
DBMS_METADATA                    FUNCTION open (
                                 PROCEDURE set_filter (
                                 PROCEDURE set_filter (
                                 PROCEDURE set_filter (
                                 PROCEDURE set_count (
                                 PROCEDURE set_xmlformat (
                                 FUNCTION get_query (
                                

如果想知道更多的package的資訊，可以使用如下的指令碼。

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
col subobject_name format a10
set linesize 150
break on object_name
select object_name,owner,subobject_name,object_type,object_id, created,last_ddl_time,status from dba_objects where object_type like 'PACKAGE%' and object_name=upper('$2') and owner=upper('$1')
ORDER BY OBJECT_ID
/
exit;
END`

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


sqlplus -silent $DB_CONN_STR@$SH_DB_SID < prompt .
set long 99999
set pages 0
select text
from dba_source
where type in ('PACKAGE BODY','PACKAGE') and name=upper('$2') and owner=upper('$1')
order by type, line;

 

EOF
exit


指令碼執行情況如下：
[ora11g@rac1 dbm_lite]$ ksh showpack.sh sys DBMS_METADATA_UTIL|less
*******************************************
 
OBJECT_NAME                    OWNER                SUBOBJECT_ OBJECT_TYPE          OBJECT_ID CREATED   LAST_DDL_ STATUS
------------------------------ -------------------- ---------- ------------------- ---------- --------- --------- -------
DBMS_METADATA_UTIL             SYS                             PACKAGE                   9681 23-JAN-14 23-JAN-14 VALID
                               SYS                             PACKAGE BODY             11983 23-JAN-14 23-JAN-14 VALID   
*******************************************
.
PACKAGE dbms_metadata_util AUTHID DEFINER AS
------------------------------------------------------------
-- Overview
-- This pkg implements utility functions of the mdAPI.
---------------------------------------------------------------------
-- SECURITY
-- This package is owned by SYS. It runs with definers, not invokers rights
-- because it needs to access dictionary tables.

-------------
-- EXCEPTIONS
--
  invalid_argval EXCEPTION;
    PRAGMA EXCEPTION_INIT(invalid_argval, -31600);
    invalid_argval_num NUMBER := -31600;
-- "Invalid input value %s for parameter %s in function %s"
-- *Cause:  A NULL or invalid value was supplied for the parameter.
-- *Action: Correct the input value and try the call again.

  invalid_operation EXCEPTION;
    PRAGMA EXCEPTION_INIT(invalid_operation, -31601);
    invalid_operation_num NUMBER := -31601;
-- "Function %s cannot be called now that fetch has begun"
-- *Cause:  The function was called after the first call to FETCH_xxx.
-- *Action: Correct the program.

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

相關文章