create or replace PRocedure rename_table(source_name in varchar2,target_name in varchar2,times in out number) isquery_str varchar2(4000);source_name1 varchar2(64);target_name1 varchar2(64);cursor c1 is select segment_name from user_segments where segment_name=upper(source_name);dummy c1%rowtype; cursor c2 is select segment_name from user_segmentswhere segment_name=upper(target_name);dummy2 c2%rowtype; beginsource_name1:=source_name;target_name1:=target_name;open c1;fetch c1 into dummy;-- if c1%found then-- dbms_output.put_line(source_name1'exist!');-- end if;open c2;fetch c2 into dummy2;-- if c2%notfound then-- dbms_output.put_line(target_name1'not exist!');-- end if;if c2%notfound and c1%found thenquery_str :='alter table 'source_name1' rename to 'target_name1;execute immediate query_str;dbms_output.put_line('rename sUCcess!');end if;close c1;close c2;exceptionWHEN OTHERS THEN times:=times+1;if times<100 then-- dbms_output.put_line('times:'times);rename_table(source_name1,target_name1,times);elsedbms_output.put_line(SQLERRM);dbms_output.put_line('error over 100 times,exit');end if;end;/
截斷分割log表的存儲過程log_history:
create or replace procedure log_historyisquery_str varchar2(32767);year_month varchar2(8);times number;beginselect to_char(sysdate-15,'YYYYMMDD') into year_month from dual;times:=0;query_str :='create table log_new pctfree 10 pctused 80as select * from log where 1=2';execute immediate query_str;query_str :='alter table log_new add constraints log_'year_month'_pkprimary key (id) tablespace indx nologging pctfree 10';execute immediate query_str; query_str :='alter table log_his modify logtime default sysdate';execute immediate query_str; query_str :='create index log_'year_month'_logtime on log(logtime)tablespace indx nologging pctfree 10';execute immediate query_str; rename_table('log','log'year_month,times);query_str :='alter table log_new rename to log';execute immediate query_str;end;/
當(dāng)然您工作環(huán)境的日志表可能和我這個做例子的日志表結(jié)構(gòu)上有所不同，約束條件、索引和默認(rèn)值都不盡相同。只要稍加修改就可以了。 三、用戶需要有create any table系統(tǒng)權(quán)限(不是角色里包含的權(quán)限) 因為在執(zhí)行存儲過程時，由角色賦予的權(quán)限會失效, 所以執(zhí)行l(wèi)og_history的用戶一定要有DBA單獨賦予的create any table系統(tǒng)權(quán)限。 最后在OS里定時每月一號凌晨0:00分執(zhí)行l(wèi)og_history，讓存儲過程定期分割表。 假如要分割的日志表很多，模擬log_history可以寫很多類似的存儲過程來分割不同項目里的日志表。然后讓OS按月，按周或者不定期的執(zhí)行這些存儲過程, 治理員只要查看日志就可以了。 四、其它注重事項 假如應(yīng)用程序有BUG，可能對在用原始日志表產(chǎn)生長期不能釋放的鎖，執(zhí)行l(wèi)og_history重命名會不成功。 這時DBA可以查看數(shù)據(jù)字典:
select object_id,session_id,locked_mode from v$locked_object;select t2.username,t2.sid,t2.serial#,t2.logon_time from v$locked_object t1,v$session t2 where t1.session_id=t2.sid order by t2.logon_time;
假如有長期出現(xiàn)的一模一樣的列（包括登錄時間），可能是沒有釋放的鎖。 我們要在執(zhí)行分割日志表的存儲過程前，用下面SQL語句殺掉長期沒有釋放非正常的鎖： alter system kill session 'sid,serial#'; 五、結(jié)束語 用上面介紹的存儲過程定期分割日志表有很大的靈活性。歷史數(shù)據(jù)不僅查詢方便，轉(zhuǎn)移和備份起來也都很輕易。Unix和Windows平臺的都可以使用。對服務(wù)器硬盤空間較小的中小型公司意義尤其明顯。
