xml simple question

[getget]

Hi All.
When using XML::Sample, I have a question, who can help me.

First I have output.xml file:
<?xml version="1.0"?>
<memo>
  <applications>
    <multimedia>
        <application>Mp3 converter</application>
        <application>Real player</application>
    </multimedia>
    <office>
        <application>Microsoft project</application>
        <application>Poedit</application>
    </office>
  </applications>
  <games>
    <game>Metrix</game>
    <game>Line</game>
    <game>Sudoku</game>
  </games>
</memo>

I use XML::Sample to read, after that I save to output.xml
$data= XMLin("input.xml");
print XMLout($data,  xmldecl => '<?xml version="1.0"?>', RootName =>
'memo', OutputFile => 'output.xml');

Content of output.xml file:
<?xml version="1.0"?>
<config>
  <applications>
    <name>multimedia</name> <!-- different -->
    <application>Mp3 converter</application>
    <application>Real player</application>
  </applications>
  <applications>
    <name>office</name><!-- different -->
    <application>Microsoft project</application>
    <application>Poedit</application>
  </applications>
  <games>
    <game>Metrix</game>
    <game>Line</game>
    <game>Sudoku</game>
  </games>
</config>

The content of 2 files output.xml and input.xml are different. How can
I create the output file its content the same with input.xml.

Cheers


-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/