导出oracle数据库存储过程

bindir=~/work/common
prodir=~/work/common/procedure

#连接数据库（带参数-s）
ora_s()
{
~/cfg/dbetl_s
}

#连接数据库（不带参数）
ora()
{
~/cfg/dbetl
}

#获得存储过程名称
getprocedurename()
{
ora_s <<! >${bindir}/procedure.lst

set heading off;
set feedback off;
set pagesize 0 ;
set wrap off;
set echo off;
set term off;
set linesize 1000;
set trimspool on;

select object_name from user_procedures;

exit
!

}

#导出存储过程代码
exportproceduresource()
{
ora_s <<!   >${prodir}/${procedure_name}.sql

set serveroutput on;
set heading off;
set feedback off;
set pagesize 0 ;
set wrap off;
set echo off;
set term off;
set linesize 1000;
set trimspool on;

select text from user_source a where a.name = '${procedure_name}' order by a.line;

exit
!

}

#####################        mian         ##########################

getprocedurename

mkdir prodir

while read procedure_name
do

    exportproceduresource

done<${bindir}/procedure.lst

echo "begin at ${begintime}"
echo "end   at ` date +%y年%m月%d日%h时%m分%s秒 `"