oracle索引失效批解决办法

项目中服务器操作过后，数据库中所有表的索引都失效了，每个都重新rebuild索引太麻烦，这里介绍sql批处理方法。
建一个rebuild索引的存储过程

CREATE OR REPLACE PROCEDURE REBUILD_INDEX(INPUTDT IN VARCHAR2) --仅对无效的索引操作
 AS
  SQLT VARCHAR(200);
BEGIN
  --只取非临时索引
  FOR IDX IN (SELECT INDEX_NAME, TABLESPACE_NAME, STATUS
                FROM USER_INDEXES
               WHERE STATUS = 'UNUSABLE' ORDER BY INDEX_NAME ASC) LOOP
    --如果是如重建无效的索引，且当索引不是无效时，则跳过
    SQLT := 'alter index ' || IDX.INDEX_NAME || ' rebuild ';
    DBMS_OUTPUT.PUT_LINE(IDX.INDEX_NAME);
    EXECUTE IMMEDIATE SQLT;
    <<CONTINUE>>
    NULL;    
    END LOOP;
END REBUILD_INDEX;

或者对全表进行分析

CREATE OR REPLACE PROCEDURE ANALYZE_TABLES(INPUTDT IN VARCHAR2) 
  SQLT VARCHAR2(200);
BEGIN
    FOR TAB IN (SELECT TABLE_NAME, TABLESPACE_NAME, STATUS FROM USER_TABLES) LOOP
      SQLT := 'analyze table ' || TAB.TABLE_NAME || ' compute statistics ';
      DBMS_OUTPUT.ENABLE(buffer_size => null);--表示输出buffer不受限制
      DBMS_OUTPUT.PUT_LINE(TAB.TABLE_NAME);
      EXECUTE IMMEDIATE SQLT;
      <<CONTINUE>>
      NULL;
    END LOOP;
END ANALYZE_TABLES;

感谢我的朋友建森教给我新的解决办法。