也谈Oracle中删除用户下所有对象

因为要对数据库做换版，百度了以下Oracle中删除用户下所有对象的脚本并修改：

/* 保留owner */
BEGIN 
  FOR obj IN 
  (SELECT t.owner,t.object_name,object_type from all_OBJECTS t
 where t.owner in ('VENTURE',
                   'TOTAL',
                   'PARAMS',
                   'KSMANAGE',
                   'KINGSTAR',
                   'HISTORY',
                   'DCETL',
                   'CORE',
                   'CLOSING')
    and ( object_type='PROCEDURE' 
     OR object_type='TABLE' 
     OR object_type='VIEW' 
     OR object_type='FUNCTION' 
     OR object_type='PACKAGE'
     OR object_type='PACKAGE BODY'  
     OR object_type='SEQUENCE' )
    ) 
    LOOP