首先给出一个警告：下面的技巧提示如果使用不小心会造成严重的安全漏洞。当你在一个非测试环境下使用这种方法之前，一定要完完全全地理解这样做的后果。

如果你需要复制一个表并在（另一个用户名下的）另一个方案（schema）制作它的一个副本，那么你可以使用 sql*plus 的 copy 命令，或者使用简单的语句“create table foo as select * from other.foo;”，只要你在另一个用户的表上有足够的 select 权限。

然而，如果你需要对任何其它数据库对象做同样的事情，比如包、过程、函数或视图，就没有这么简单的命令了。你需要手工找出其代码并在新实例中运行它。如果能够简单“克隆对象”并让另一个用户的对象出现在自己的实例中，那将是一件非常值得高兴的事。对于为开发过程创建测试方案来说，这一点非常有用。在这个例子中，我将创建一个包，使用该包可以对大多数对象进行克隆（具有一些限制）。

要处理的主要问题是获得源代码。对象所有者通过视图user_source 可以访问源代码。而对于其它用户，如果对象被授予了execute 权限给一个用户，那么这个用户就只能看到通过视图all_source 选出的源代码。我们可以通过一个过程来封装“give me the source for your object（给我你的对象的源代码）”请求：

create or replace procedure get_source
(
    p_type          varchar2,
    p_name          varchar2,
    p_cursor out    sys_refcursor
)
as
begin
    open p_cursor for
        select text from user_source
         where type = upper(p_type) and name = p_name
          order by line;
end get_source;
/
show errors;

注意，我没有用“upper(name)”。这就意味着你必须匹配这个存储过程的字母大小写。java 存储过程使用很多大小写混合的名字。