For a generic, recursive algorithm for looping over an arbitrarily complex data structure, see Re: I've got a hash of hashes how do i get my values out.

How can I visualize my complex data structure? may also be helpful.

or Data::Diver

Always use strictures (use strict; use warnings;). First of all the line

  for my $record (@{my $VAR1->{Application}})  {
[download]

shlould be

  for my $record (@{$VAR1->{Application}})  {
[download]

for you don't want to redefine $VAR1 inside the loop...

You have it backwards. That code came from his using strict. When told he was using a variable he never declared, He simply declared it instead of fixing the code to use the right variable name.

Your solution is the code he had originally. While it undoes his second mistake, it leaves him with the first (not using the right variable).

++

As an afterthought, I had suspected something like it, for $VAR1 is obviously the result of Dumper($something)

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

PerlScholar:

You've already been told to do so, but you really should use code tags (<c> your code goes here</c>) to surround your code so that it gets rendered correctly in the browser.

While I commend you for including some code and data, you're forgetting to describe what the problem is. Right now, I'd have to guess what the problem is, and I'd rather not go to the effort of figuring out which case is the most likely. I'll wait for another (more ambitious) monk to do so, or for you to provide a bit more detail.

...roboticus

First of all, you'll need to understand which components are hashes and which components are arrays in your data structure. It looks like you were able to apply some of the responses to your earlier question (XML:Simple Config). That's a good start.

Secondly, you need to determine at which level of your data structure are you wanting to looping through. If that level is an array, it should be simple to iterate through that level with a for loop or a foreach loop. If that level is a hash, you can look at perlfaq4 for an example of how to iterate through a hash.

However, I should point out that grantm gave you a reference to Perl documentation about complex data structures (perlreftut) in response to your earlier question (XML:Simple Config). You might find that information useful in dealing with your complex data structure.

Also, I should point out that if you don't like the default structure that XML::Simple creates, there are some options in that module that you could use to modify how it will create the data structure.

Hi dasgar,

So I guess my structure is a hash of arrays and i'm having real trouble looping through this structure. Right now i'm only able to access the data by explicitly refering to the array index but would much rather be able to loop through the whole array.

You can use the following code for getting the values of hash.

for my $record ( $hash{'Application'}) {
print "Environment:".$record->{'Environment'}[0]->{'Name'} ."\n";
print "Region:".$record->{'Environment'}[0]->{'Region'}[0]->{'Name'}."
+\n";
print "Idrive:".$record->{'Environment'}[0]->{'Region'}[0]->{'Idrive'}
+."\n";
print "LPad:".$record->{'Environment'}[0]->{'Region'}[0]->{'Zdrive'}."
+\n";
}
[download]

For your reference, I have used the index as 0.You can find the length of the array in the hash and you can loop through the array length.

Hi Nvivek,

This looks like what I need, however I would like to loop through all the indexes not just 0 or 1 is there a way to do that? Taking out the index number gives the error. Thanks!

Pseudo-hashes are deprecated at Z:/My Documents/Workspace/Script.pl line 12.
Argument "\x{51}\x{41}" isn't numeric in hash element at Z:/My Documents/Workspace/Script.pl line 12.
Bad index while coercing array into hash at Z:/My Documents/Workspace/Script.pl line 12.

See References Quick Reference, and maybe perlreftut.