Re^2: Trouble Getting Deep Into a Hash from XML::Parser

[inblosam]

One more associated problem, how do I know how many to expect when I am running through adding each of these to an array of hashes? There's got to be a better way to handle it. The code below works, but the XML has a different number of results each time for the "moreSpecific" tag. Any suggestions??

my $moreListCnt = 2;
my $cnt = 0;
my @morelist;

for (;$cnt<$moreListCnt;$cnt++) {
    $morelist[$cnt]{'more'} = $content->{'soapenv:Body'}{'getKeywordVa
+riationsResponse'}{'getKeywordVariationsReturn'}{'moreSpecific'}[$cnt
+]->{'text'};
    $morelist[$cnt]{'comp'} = $content->{'soapenv:Body'}{'getKeywordVa
+riationsResponse'}{'getKeywordVariationsReturn'}{'moreSpecific'}[$cnt
+]->{'advertiserCompetitionScale'};
    $morelist[$cnt]{'pop'} = $content->{'soapenv:Body'}{'getKeywordVar
+iationsResponse'}{'getKeywordVariationsReturn'}{'moreSpecific'}[$cnt]
+->{'searchVolumeScale'};
}

Thanks!!

[runrig]

First, I would use ForceArray on the moreSpecific tag (if there is only one 'moreSpecific' node, it will not make an array), and you don't need the count to access all of the subnodes.

my $morelist = $content->{'soapenv:Body'}{'getKeywordVariationsRespons
+e'}{'getKeywordVariationsReturn'}{'moreSpecific'};

for my $more (@$morelist) {
  print "$more->{text}\n";
  print "$more->{advertiserCompetitionScale}\n";
  print "$more->{searchVolumeScale}\n";
  $more->{more} = $more->{text};
  $more->{comp} = $more->{advertiserCompetitionScale};
  $more->{pop} = $more->{searchVolumeScale};
}

Update: fixed, updated example.