oracle复制表结构和约束

declare
res varchar2(9999);
begin 
--从DDL中去除segment_attributes（物理属性,存储属性,表空间,日志等信息）信息
dbms_metadata.set_transform_param(dbms_metadata.session_transform,'SEGMENT_ATTRIBUTES',false);
res :=dbms_metadata.get_ddl( 'TABLE',name => '表名',schema => '用户名');
res :=replace(res,'YYYYMMDD',to_char(sysdate,'YYYYMMDD'));
execute immediate res
end;