oracle xml parser

create or replace procedure parser_xml (dir varchar2,xml_name varchar2) is
new_parser xmlparser.Parser;
get_doc xmldom.DOMDocument;

nodelist xmldom.DOMNodeList;
nle number;
e xmldom.DOMElement;
n xmldom.DOMNode;
begin
new_parser:=xmlparser.newParser;--得到XML解析器
xmlparser.setValidationMode(new_parser,false);--是否让解析器有验证功能（是否是一种DDL标准）
xmlparser.setBaseDir(new_parser,dir);--在XML解析器中设定被解析文件的路径
xmlparser.parse(new_parser,dir||xml_name);--解析文件根据绝对路径
get_doc:=xmlparser.getDocument(new_parser);--在XML解析器中得到解析后的文档
xmlparser.freeParser(new_parser);--释放解析器
nodelist:=xmldom.getElementsByTagName(get_doc,'*');--得到所有的元素
nle:=xmldom.getLength(nodelist);--得到元素的个数
for i in 0..nle-1 loop
 n:=xmldom.item(nodelist,i);--给元素打标(即得到每一个节点)
 --e:=xmldom.makeElement(n);--把节点变成一个元素来处理(可以对ATTRIBUTER来操作)
 dbms_output.put_line(xmldom.getNodeName(n)||':'||xmldom.getNodeValue(xmldom.getFirstChild(n)));
end loop;
end parser_xml;