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

/***************批量删除以xxx开头的表（author:huangbaokang）**********************/
create or replace 
procedure drop_like_table(tablename in varchar2) 
as 
cursor cur_tables_like is select table_name from user_tables where table_name like upper(tablename)||'%' ; 
begin 
  for table_like in cur_tables_like loop 
    begin 
      execute immediate 'drop table '||table_like.table_name ; 
      dbms_output.put_line('drop table '||table_like.table_name); 
    end; 
  end loop; 
end drop_like_table;