oracle导出表的建表语句拼接SQL

前段时间有个需求需要导出数据库的500张表结构，使用PLSQLDEV工具也可以导出建表语句，但是需要手动一个表一个表选，非常费劲。就写了个拼接sql。

select ‘select dbms_metadata.get_ddl(‘‘‘ ||segment_type|| ‘‘‘,‘‘‘ ||segment_name|| ‘‘‘,‘‘‘ || owner || ‘‘‘) from dual;‘ from dba_segments where segment_name=‘ALE_CRITICALDEGREE‘
or segment_name=trim(‘ALE_CRITICALDEGREE ‘)
or segment_name=trim(‘ALE_ALERTLEVEL          ‘)
.................

or segment_name=trim(‘PUB_SPELLMODEL        ‘);