in reply to Trouble Getting Deep Into a Hash from XML::Simple

By default the root tag is dropped and not included in the hash. Use the KeepRoot option if you want to include it. Otherwise just use:
print $content->{'soapenv:Body'}{getKeywordVariationsResponse}{getKeyw
+ordVariationsReturn}{moreSpecific}[0]{text},"\n";

[download]
(also note that your title is misleading as this is an XML::Simple question, not really XML::Parser).

Replies are listed 'Best First'.
Re^2: Trouble Getting Deep Into a Hash from XML::Parser
by inblosam (Monk) on Sep 02, 2006 at 12:37 UTC
    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'};
}

    [download]
    Thanks!!


    Michael
[reply]
[d/l]
      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};
}

      [download]
      Update: fixed, updated example.
[reply]
[d/l]
Re^2: Trouble Getting Deep Into a Hash from XML::Parser
by inblosam (Monk) on Sep 02, 2006 at 08:34 UTC
    Works like a charm! Thanks for pointing that out, I think I was just looking at some XML::Parser documentation...


    Michael
[reply]

In Section Seekers of Perl Wisdom