How to use perl to parsing a XML file to csv file which have the same sequence in xml file? The following XML file called booklist.xml, in example:

 
   <book>
      <author>Book 1 author 1</author>
      <author>Book 1 author 2</author>
      <title>Book 1 title</title>
      <isbn>Book1ISBN</isbn>
   </book>
[download]

Example of Converting from XML to a Perl hash record

 #!/usr/bin/perl

# Script to illustrate how to parse a simple XML file
# and dump its contents in a Perl hash record.

use strict;
use XML::Simple;
use Data::Dumper;

my $booklist = XMLin('booklist.xml');

print Dumper($booklist);
[download]

Running this script outputs the following:

$VAR1 = {
          'book' => {
                      'isbn' => 'Book1ISBN',
                      'title' => 'Book 1 title',
                      'author' => [
                                  'Book 1 author 1',
                                  'Book 1 author 2'
                                ]
                    }

        }
[download]

But hope we can get the sequence like this:

$VAR1 = {
          'book' => {
                      'author' => [
                                  'Book 1 author 1',
                                  'Book 1 author 2'
                                ]
                       'title' => 'Book 1 title',
                       'isbn' => 'Book1ISBN',
                                                              }

        }
[download]