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        ');