001
Account 001
abcd
Asset abcd
wxyz
Asset wxyz
001
Account 001
####
for each (asset that exists)
{
$array = (accountId, accountname, assetId, assetName);
(do stuff with the array);
}
##
##
my $data1 = $xml->XMLin($xmlResponse);
foreach my $account (@{$data1->{'account'}}) {
my $acctName = $account->{'accountName'};
my $acctId = $account->{'accountId'};
if (defined $account->{'ns1:asset'}) {
our $assetID = $account->{'asset'}->{'assetId'};
our $assetName = $account->{'asset'}->{'assetName'};
}
else {
print "\nIt didn't process\n";
}
}
##
##
Bad index while coercing array into hash at c:/temp/parseit.pl line (equivelant of 7 in this case).