怎么将Oracle数据库完整的元数据信息导出成xml

在oracle中提供了许多内置的程序包，它们用于扩展数据库的功能。在开发应用程序时，可以利用这些程序包。数据库用户sys拥有oracle提供的所有程序包。他们被定义为共有同义词，并将执行权限授予了public用户组，任何用户都可以访问它们。其中DBMS_XMLQUERY包用于将查询结果转换为XML格式，DBMS_LOB程序包包含雨处理大型对象的过程和函数。下面我们看一下DBMS_XMLQUERY和DBMS_LOB的用法：
SQL> DECLARE
result CLOB;
xmlstr VARCHAR2(32767);
line VARCHAR2(2000);
line_no INTEGER :=1;
BEGIN
result :=DBMS_XMLQUERY.getXml('select empno,empname from employee');
xmlstr :=DBMS_LOB.SUBSTR(result,32767);
LOOP
EXIT WHEN xmlstr IS NULL;
line :=SUBSTR(xmlstr,1,INSTR(xmlstr,CHR(10)-1));
DBMS_OUTPUT.PUT_LINE(line_no || ':' || line);
xmlstr :=SUBSTR(xmlstr,INSTR(xmlstr,CHR(10)+1));
line_no :=line_no + 1;
END LOOP;
END;

在上面的例子中我们声明了一个CLOB数据类型的result变量，以及VARCHAR2类型的xmlstr和line两个变量。其中，getXml函数用于将查询结果转换为XML格式，SUBSTR函数检索子字符串，32767值指定要从CLOB数据类型读取的最大字节数。检索到的字符串存储xmlstr变量中。LOOP块循环执行，每次从xmlstr中读取一行。INSTR函数返回一个字符串在另一个字符串首次出现的位置。在此，该函数返回换行符在字符串中的位置，直到遇到下一行。

大家觉得例子的结果能不能读出我们预期的结果呢？试试就知道了！！！

结果如下：

< ?xml version='1.0'?>
< ROWSET>
< ROW num="1">
< EMPNO>E001
< EMPNAME>Jane
< /ROW>

< EMPNO>E002
< EMPNAME>John
< /ROW>
< ROW num="3">
< EMPNO>E003
< EMPNAME>Joe
< /ROW>
< /ROWSET>