导出Oracle里创建非唯一索引脚本的方法
在Oracle里用逻辑备份工具eXP导出数据时，假如使用默认参数, 会把索引一起导出来。当数据和索引小的时候，我们可能不太会计较导入时间; 假如数据和索引大的时候，就应该考虑导入时间的问题了。
实际地说，二进制dmp备份文件里有些索引对备份是用处不大的, 导出时完全可以选择indexes=n的参数, 不备份它们。这样不仅可以缩短导入导出时间，还可以节省备份文件的存储空间。这种索引类型是非唯一（nounique）的。我们可以根据ORACLE数据字典dba_indexes和dba_ind_columns里的信息生成创建索引的脚本。在导入完成后再运行这些创建索引的脚本。
dba_indexes里记录了索引类型和存储参数等信息。
dba_ind_columns里记录了索引的字段信息, 它的结构如下：
SQL> desc dba_ind_columns;
name null?type
----------------------------------------- -------- -------------------------
index_owner not null varchar2(30)
index_name not null varchar2(30)
table_ownernot null varchar2(30)
table_name not null varchar2(30)
column_name varchar2(4000)
column_positionnot null number
column_length not null number
descend varchar2(4)
column_name记录着有索引的字段, column_position标记着字段在创建索引时的位置, descend指索引的排序, 有asc和desc 两种，而desc排序方法用的较少，本文只考虑asc的情况。
步骤一：先创建一个视图index_nouniq_column_num列出非系统用户nonunique索引的用户名, 索引名和字段数量。
SQL> create view index_nouniq_column_num as select t1.owner,t1.index_name,count(0)
as column_num from dba_indexes t1,dba_ind_columns t2 where t1.uniqueness='NONUNIQUE'
and instr(t1.owner,'sys')=0 and t1.owner=t2.index_owner and t1.index_name=t2.index_name
group by t1.owner,t1.index_name order by t1.owner,column_num;
步骤二：为了处理方便，建一个索引字段临时表index_columns, 它的column_names记录了以逗号分隔, 顺序排列的索引字段。
SQL> create table index_columns(
index_owner varchar2(30) not null,
index_name varchar2(30) not null,
column_names varchar2(512) not null)
tablespace users;
步骤三：把只有一个字段的索引内容插入索引字段临时表index_columns。
SQL> insert into index_columns select t1.owner,t1.index_name,t2.column_name from
index_nouniq_column_num t1,dba_ind_columns t2 where t1.column_num=1 and t1.
owner=t2.index_owner and t1.index_name=t2.index_name order by t1.owner,t1.index_name;
commit;
步骤四：把多个字段的索引内容插入索引字段临时表index_columns。
用到以下一个函数getcloumns和过程select_index_columns。
函数getcloumns:
create or replace function getcloumns(
index_owner1 in varchar2,
index_name1 in varchar2,
column_nums1 in number) return varchar2
is
all_columns varchar2(512);
total_num number;
i number;
cursor c1 is select column_name from dba_ind_columns where index_owner=index_owner1 and index_name=index_name1 order by column_position;
dummy c1%rowtype;
begin
total_num:=column_nums1;
open c1;
fetch c1 into dummy;
i:=0;
while c1%found loop
i:=i+1;
if (i=total_num) then
all_columns:= all_columnsdummy.column_name;
else
all_columns:= all_columnsdummy.column_name',';
end if;
fetch c1 into dummy;
end loop;
close c1;
return all_columns;
exception
when no_data_found then
return all_columns;
end;
/ 过程select_index_columns:
create or replace procedure select_index_columns
is
all_columns varchar2(2000);
cursor c1 is select * from index_nouniq_column_num where column_num>=2;
dummy c1%rowtype;
begin
open c1;
fetch c1 into dummy;
while c1%found loop
select getcloumns(dummy.owner,dummy.index_name,dummy.column_num) into all_columns
from dual; insert into index_columns values(dummy.owner,dummy.index_name,all_columns);
fetch c1 into dummy;
end loop;
commit;
close c1;
exception
when others then
rollback;
end;
/
SQL>exec select_index_columns;
执行select_index_columns过程就可以把多个字段的索引内容插入索引字段临时表了。
步骤五：最后运行create_now_index.sql，根据索引字段临时表index_columns和dba_indexes在路径/oracle_backup/log下生成创建非唯一索引脚本create_index.sql。
create_now_index.sql：
set heading off;
set pagesize 5000;
truncate table index_columns;
-- 把多个字段的索引内容插入索引字段临时表
exec select_index_columns;
-- 把只有一个字段的索引内容插入索引字段临时表
insert into index_columns select t1.owner,t1.index_name,t2.column_name from
index_nouniq_column_num t1,dba_ind_columns t2 where t1.column_num=1 and t1.owner=t2.index_owner
and t1.index_name=t2.index_name order by t1.owner,t1.index_name;
commit;
spool /oracle_backup/log/create_index.sql;
SELECT 'CREATE INDEX 't1.owner'.'t1.index_name chr(10) ' ON 't1.table_name'
('column_names')' chr(10) ' TABLESPACE 't1.tablespace_name chr(10)
' PCTFREE 't1.pct_free chr(10) ' STORAGE (INITIAL 't1.initial_extent'
NEXT 't1.next_extent' PCTINCREASE 't1.pct_increase');' chr(10)
chr(10) FROM dba_indexes t1,index_columns t2 WHERE t1.owner=t2.index_owner and
t1.index_name=t2.index_name ORDER BY t1.owner, t1.table_name;
