概述

生产环境中，经常会遇到表由于数据不断插入，导致空间越来越大，由于前期配置问题，没有做分区或者其他优化，而且生产数据实时向表插入。要删除历史数据来释放空间。所以DBA一般都需要定期去对Oracle表碎片做整理，简单整理表碎片整理流程如下：

1、定位存在碎片的对象

使用如下脚本，检查需要进行碎片整理的对象：

--all tables(partition_tables + non_partition_tables )
select a.owner,
 a.table_name,
 a.num_rows,
 a.avg_row_len,
 round(a.avg_row_len * a.num_rows / 1024 / 1024, 2) real_bytes_MB,
 round(b.seg_bytes_mb, 2) seg_bytes_mb,
 decode(a.num_rows,
 0,
 100,
 (1 - round(a.avg_row_len * a.num_rows / 1024 / 1024 /
 b.seg_bytes_mb,
 2)) * 100) || '%' frag_percent
 from dba_tables a,
 (select owner, segment_name, sum(bytes / 1024 / 1024) seg_bytes_mb
 from dba_segments
 group by owner, segment_name) b
 where a.table_name = b.segment_name
 and a.owner = b.owner
 and a.owner not in
 ('SYS', 'SYSTEM', 'OUTLN', 'DMSYS', 'TSMSYS', 'DBSNMP', 'WMSYS',
 'EXFSYS', 'CTXSYS', 'XDB', 'OLAPSYS', 'ORDSYS', 'MDSYS', 'SYSMAN')
 and decode(a.num_rows,
 0,
 100,
 (1 - round(a.avg_row_len * a.num_rows / 1024 / 1024 /
 b.seg_bytes_mb,
 2)) * 100) > 30
 order by b.seg_bytes_mb desc;

2、统计信息检查

2.1 统计信息检查

查看统计信息收集日期，确保碎片查询结果准确：

select owner,table_name,last_analyzed from dba_tables Where owner='<OWNER>' AND table_name='<TABLE_NAME>';

2.2 统计信息收集

如果统计信息过旧，则重新收集统计信息：

exec dbms_stats.gather_table_stats(ownname=>'<OWNER>', tabname =>'<TABLE_NAME>');

3、表碎片整理

3.1 打开行移动

alter table <TABLE_NAME> enable row movement ;

3.2 进行表收缩

alter table <TABLE_NAME> shrink space cascade ;

3.3 失效对象编译

语句可能会造成引用表<TABLE_NAME>的对象(如存储过程、包、视图等)变为无效。

运行如下脚本，重新编译失效对象。

@?/rdbms/admin/utlrp.sql

4、对象收缩后的结果检查

运行如下脚本，确认对象空间是否已经完成收缩。

--all tables(partition_tables + non_partition_tables )
select a.owner,
 a.table_name,
 a.num_rows,
 a.avg_row_len,
 round(a.avg_row_len * a.num_rows / 1024 / 1024, 2) real_bytes_MB,
 round(b.seg_bytes_mb, 2) seg_bytes_mb,
 decode(a.num_rows,
 0,
 100,
 (1 - round(a.avg_row_len * a.num_rows / 1024 / 1024 /
 b.seg_bytes_mb,
 2)) * 100) || '%' frag_percent
 from dba_tables a,
 (select owner, segment_name, sum(bytes / 1024 / 1024) seg_bytes_mb
 from dba_segments
 group by owner, segment_name) b
 where a.table_name = b.segment_name
 and a.owner = b.owner
 and a.owner not in
 ('SYS', 'SYSTEM', 'OUTLN', 'DMSYS', 'TSMSYS', 'DBSNMP', 'WMSYS',
 'EXFSYS', 'CTXSYS', 'XDB', 'OLAPSYS', 'ORDSYS', 'MDSYS', 'SYSMAN')
 and decode(a.num_rows,
 0,
 100,
 (1 - round(a.avg_row_len * a.num_rows / 1024 / 1024 /
 b.seg_bytes_mb,
 2)) * 100) > 30
 order by b.seg_bytes_mb desc;

5、性能监控

监控数据库会话，是否存在异常等待事件：

select inst_id ,sid,serial#,sql_id,event,machine,module,program,seconds_in_wait from gv$session ;
--看会话在做什么操作
select sid, sql_text
 from v$session a, v$sql b
 where sid in(85,160)
 and(b.sql_id = a.sql_id or b.sql_id = a.prev_sql_id);

篇幅有限，这一块就整理到这了，后面会分享更多devops和DBA方面的内容，感兴趣的朋友可以关注下~