使用pl/sql脚本重命名一组表

我需要在一个模式上重命名一堆表，因为有很多表，所以我需要一个合适的脚本，但我并不真正精通PL/SQL。。。 规则是我需要重命名所有以字符串“\u ARC”结尾的表 删除该字符串

---

谢谢

提醒：如果仍在Oracle9上，则必须将其切换到“ALTERTABLE current\u table\u name rename to new\u table\u name”语法。

begin
  for i in (select t.TABLE_NAME as old_name
                  ,substr (t.TABLE_NAME,1,length(t.TABLE_NAME)-4) as new_name
            from user_tables t
            where t.TABLE_NAME like '%\_ARC' escape '\')
    loop
      execute immediate 'rename '||i.old_name||' to '||i.new_name;
    end loop;
end;