Re^2: Parse XML into CSV Files

[dmsparts]

I was not sure where or how to declare the "foreach" statement for the contents of the XML, Hence my queery. Regards

[alexm]

Once you remove the last <Vehicle> tag from the XML, the XMLin parser should read the file and then you can iterate over the vehicle array like this:

my @vehicle_list = @{ $config->{Vehicle} };

foreach my $vehicle ( @vehicle_list ) {
    print $vehicle->{AuctionID} . "\n";
}

[dmsparts]

Thanks for the reply,

This is what i have found in another post on here,

It seems to work fine until i get a XML TAG with no data in it. ie,


<Mileage> </Mileage>



When i print this variable to either the screen or an output file i get a value such as,

HASH(0x17ce550)

Any ideas how to stop this??

[alexm]

Any ideas how to stop this??

This is the default behaviour for XMLin with empty elements, but you can change it, e.g.:

my $config = XMLin( $xml, SuppressEmpty => "" );

See XML::Simple for the details.