oracle 清空当前用户所有对象

BEGIN
 FOR REC IN 
   (SELECT OBJECT_NAME,OBJECT_TYPE FROM USER_OBJECTS
    WHERE OBJECT_TYPE='PROCEDURE'
    OR OBJECT_TYPE='TABLE'
    OR OBJECT_TYPE='VIEW'
    OR OBJECT_TYPE='FUNCTION'
    OR OBJECT_TYPE='PACKAGE'
    OR OBJECT_TYPE='SEQUENCE'
    )
    LOOP
     IF REC.OBJECT_TYPE='TABLE' THEN
        EXECUTE IMMEDIATE 'DROP '||REC.OBJECT_TYPE||' '||REC.OBJECT_NAME||' CASCADE CONSTRAINTS';
     ELSE
        EXECUTE IMMEDIATE 'DROP '||REC.OBJECT_TYPE||' '||REC.OBJECT_NAME;
     END IF;
    END LOOP;
END;