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.更多Oracle相关信息见Oracle 专题页面 http://www.linuxidc.com/topicnews.aspx？tid=12本文永久更新链接地址