"Printf" Debugging XML in Oracle

Oracle has a package called "DBMS_OUTPUT" which has a function called put_line that is handy for doing "printf" debugging. Unfortunately it doesn't work with XML. Here's a procedure that does it for you.

create or replace procedure dbms_output_xml (p_xml in xmltype)
  is
     l_str long;
  begin
     l_str := p_xml.extract('/*').getstringval();
     loop
        exit when l_str is null;
        dbms_output.put_line (substr (l_str, 1, instr (l_str, chr(10)) - 1));
        l_str := substr (l_str, instr (l_str, chr(10)) + 1);
     end loop;
end dbms_output_xml;