Re: XML SOAP Response

Try adding this at the end of your program.

my @vehicles;
foreach (@{$data->{Vehicles}->{Vehicle}}) {
  my %vehicle;
  $vehicle{vin}=$_->{vin};
  foreach(@{$_->{VehicleAttributes}->{VehicleAttribute}}) {
    $vehicle{$_->{type}}=$_->{value};
  }
  push(@vehicles,\%vehicle);
}
print Dumper(\@vehicles);
[download]

Updated: corrected several errors, now it works. You have to replace the initialization of $xml with

my $xml = new XML::Simple( ForceArray => ["Vehicle"]);

to force the "Vehicle" tag in your XML to became an array in the generated tree.

Rule One: "Do not act incautiously when confronting a little bald wrinkly smiling man."

Comment on Re: XML SOAP Response Select or Download Code

Replies are listed 'Best First'.
Re^2: XML SOAP Response by mitchismoney (Initiate) on Jul 31, 2008 at 17:46 UTC
Adding the code changed the output to: `$VAR1 = [];` [download] Is it a matter of double parsing the file? Or is this were XML::Twig comes in? I've only written some pretty basic Perl so bare with me as I try to learn/understand. I greatly appreciate it!	[reply] [d/l]
Re^3: XML SOAP Response by almut (Canon) on Jul 31, 2008 at 17:55 UTC
Probably just a couple of typos: `(1) print Dumper(\@vehicles); # plural (2) push(@vehicles,\%vehicle); # hashref (3) $vehicle{$_->{type}}=$_->{value}; # not veihcle` [download]	[reply] [d/l]
Re^4: XML SOAP Response by psini (Deacon) on Jul 31, 2008 at 18:23 UTC
Three typos in nine lines of code are a bit too many... so I debugged it and found two more errors. I said that it was untested, but I'm ashamed for putting so many errors in so little code. Rule One: "Do not act incautiously when confronting a little bald wrinkly smiling man."	[reply]
Re^2: XML SOAP Response by psini (Deacon) on Jul 31, 2008 at 17:49 UTC
No, it's a matter of untested code too complex to work at first go. Give me five minutes and I'll try to debug it Rule One: "Do not act incautiously when confronting a little bald wrinkly smiling man."	[reply]


Clear questions and runnable code get the best and fastest answer
	PerlMonks