Notice the square brackets around the curly ones. You have a reference to an array, not a reference to hash. The first (and only) element of the array is a reference to a hash, so:

print($result->[0]{'city'}, "\n");
[download]

or

foreach $record (@$result) {
   foreach $field (keys %$record) {
      printf("%s: %s\n",
         $field,
         $record->{$field},
      );
   }
   print("\n");
}
[download]

Yup, you got it. I had been unable to create a matching data structure prior to your hint. This works:

   print "Print city: $result->[0]{'city'}\n";
[download]

But I decided the following looked "cleaner". It makes me cringe, but here it is:

     my %hash = %{$result->[0]};  # copy result to new hash
     ...
     print "Print city: $hash{'city'}\n";
[download]

I still can't quite figure out why Frontier::Client put this result in such a pointlessly nested data structure...

Why would this be cleaner? You've got a reference to an array, containing a hash, meaning it only exists 1 time in your memory.
Now you're dereferencing it into another hash, resulting in being twice in the memory. Do this with larger hashes over and over, and the memory usage becomes bigger and bigger.
Print city: $result->[0]{'city'}\n"; is a verry legitimate way to write the results, i'd like the iterative way even more, in $result->[1] may be another hash, so i'd use ikegami's approach:


foreach $record ( @{$result} ) {
   foreach $field (keys %$record) {
      printf("%s: %s\n",
         $field,
         $record->{$field},
      );
   }
   print("\n");
}
[download]

This doesn't create a copy, just an alias:

local %hash;
*hash = $result->[0];
...
print "Print city: $hash{'city'}\n";
[download]

I still can't quite figure out why Frontier::Client put this result in such a pointlessly nested data structure...

Could it possibly return more than one result? Or maybe it's just extending a generic module that returns the data in that fashion.

I still can't quite figure out why Frontier::Client put this result in such a pointlessly nested data structure...

Because it's not pointless. The XML-RPC protocol allows for arrays of hashes. This means that the outer array is useful. It's just not useful in your situation.

Being right, does not endow the right to be rude; politeness costs nothing.
Being unknowing, is not the same as being stupid.
Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.

That doesn't look quite right. First off, are you doing:

print Dumper($result)
[download]

print Dumper([$result])
[download]

In option #1, you would find the city via: $result->[0]->{'city'} or, my preference, $result->[0]{'city'} (the quotes are optional in both cases).

In option #2, you would find the city as you attempted.

Either way, I'm not sure that your error is coming from the print statement. Can you come up with a minimal working script that shows your problem? You can skip Frontier::Client, if the problem isn't there, by setting up $result in your minimal script.

Thanks

Thanks. I did indeed use the plain print Dumper($result) as I had specified.

Ah, both ikegami and Tanktalus posted ad the same time... Same answer and both correct :-)

However, if you want to ban out the use of Dumper to sort out the type of your variable, you'd also could use:

to check the type.