in reply to deeply nested hashes of arrays of hashes of...
When using Data::Dumper you don't need to dereference - print Dumper(@{ ... }) in your example - as Dumper will handle that for you:my $items = $farmdetails->{FarmRoleSet}{Item}; for my $item (@$items) { next unless $item->{RoleID} == $some_number; my $ExternalIP = $item->{ServerSet}{Item}{ExternalIP}; my $InstanceID = $item->{ServerSet}{Item}{PlatformProperties}{Inst +anceID}; }
print Dumper($farmdetails->{FarmRoleSet}{Item}[0]); print Dumper($farmdetails->{FarmRoleSet}{Item}[0]{ServerSet}); # or better: my $items = $farmdetails->{FarmRoleSet}{Item}; for my $item (@$items) { print Dumper($item); print Dumper($item->{ServerSet}); }
|
|---|