oracle 导出表结构的存储过程,ORACLE表结构与存储过程导出

ORACLE表结构导出：

SELECT DBMS_METADATA.GET_DDL('TABLE',u.table_name) FROM USER_ALL_TABLES u

存储过程导出

#! /usr/bin/ksh

. ~/.profile

beginTime=` date +%Y年%m月%d日%H时%M分%S秒 `

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

echo "begin at ${beginTime}"

echo "end   at ` date +%Y年%m月%d日%H时%M分%S秒 `"