【Oracle】PL SQL删除对象语句

DECLARE
  s varchar2(25);
BEGIN
  for s in (select 'drop ' || o.OBJECT_TYPE || ' ' || o.OBJECT_NAME text
              from user_objects o
             where o.OBJECT_TYPE in
                   ('PACKAGE BODY', 'VIEW', 'PACKAGE', 'PROCEDURE')
               and USER = '用户名') --写入要删除的对象名称(必须大写)及对象所在的用户名称（必须大写）
   loop
    execute immediate s.text;
  end loop;
END;