PLSQL解析XML

---PLSQL解析XML-
--实例1
declare
       v_xml xmltype;
        cursor c_parse(v_xml xmltype) is
       select trim(extractValue(value(a),'Corporation/Name')) cor_name,
       trim(extractValue(value(a),'Corporation/Name/Addr')) cor_addr
       from table(xmlsequence(extract(v_xml,'Root/Corporation'))) a;
begin
       select xmltype('<?xml version="1.0" encoding="GBK"?>'
       || '<Root>'
       || '   <Corporation>'
       || '     <Name> suqiang </Name>'
       || '     <Addr>No.628 Zhangyang Road</Addr>'
       || '    </Corporation>'
       || '</Root>')
       into v_xml
       from dual;
       for v_cor in c_parse(v_xml) loop
         dbms_output.put_line('Corporation name:' || v_cor.cor_name || ';');
         dbms_output.put_line('Corporation Addr:' || v_cor.cor_addr || ';');
        end loop;
end;
       
------实例2
declare
        v_xml xmltype;
        cursor c_parse(v_xml xmltype) is
        select trim(extractValue(value(a),'Corporation/Name')) cor_name,
        extract(value(a),'Corporation/Persons/Person') cor_person
        from table(xmlsequence(extract(v_xml,'Root/Corporation'))) a;
        cursor c_person(v_persons xmltype) is
        select trim(extractValue(value(a),'Person/Name')) realname,
        trim(extractValue(value(a),'Person/Tel')) tel
        from table(xmlsequence(extract(v_persons,'Person'))) a;
begin
  select xmltype('<?xml version="1.0" encoding="GBK"?>'
    || '<Root>'
    || '   <Corporation>'
    || '      <Name>suqiang</Name>'
    || '      <Persons>'
    || '        <Person id="zhangsan">'
    || '          <Name>张三</Name>'
    || '           <Tel>12345</Tel>'
    || '        </Person>'
    || '        <Person id="lisi">'
    || '          <Name>李四</Name>'
    || '           <Tel>23456</Tel>'
    || '        </Person>'
    || '      </Persons>'
    || '   </Corporation>'
    || '</Root>')
    into v_xml
    from dual;
    for v_cor in c_parse(v_xml) loop
      dbms_output.put_line('Corporation name:' || v_cor.cor_name || ';');
      for v_person in c_person(v_cor.cor_person) loop
        dbms_output.put(v_person.realname || ':');
        dbms_output