Oracle通过shell脚本查看package的信息

有时候想查看一个package的信息，但是对于package的名字不是很确定，比如只知道一个大概，知道一些关键字，这个时候通过图形工具是查找不到package的信息的，而且对于package的信息，我只关心package里面有哪些存储过程，哪些函数等，看看简单的参数情况就可以了，类似sqlplus的desc的形式。

shell脚本的实现如下，

以下的脚本是查看是否有对应的package信息。

PROC_OWNER=`sqlplus -silent $DB_CONN_STR@$SH_DB_SID <<END
 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 <<END
 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 <<END
 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 <<EOF
 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.