oracle 批量删除当前用户下以xxxx开头的表

create or replace procedure drop_like_table(tablename in varchar2)
as
cursor curT is select table_name from user_tables where table_name like upper(tablename)||’%’ ;
begin
for cur1 in curT loop
begin
execute immediate ‘drop table ‘||cur1.table_name ;
dbms_output.put_line(‘drop table ‘||cur1.table_name);
end;
end loop;
end drop_like_table;
/