http://qs321.pair.com?node_id=735087


in reply to Re^2: Print all derefs and method calls in a directory (Friday golf)
in thread Print all derefs and method calls in a directory (Friday golf)

There are four derefences in 

@{$people->{login}->{desk}->{paperclips}}

[download]

but only three arrows.

The rest of your post doesn't relate to what I said, so I have no comment on it save that I rarely have paths that long. 

for my $employee (@$employees) {
   for my $desk (@{ $employee->{desks} }) {
      $paperclips += $desk->{paperclips};
   }
}

[download]

Four dereferences, but only two arrows. And the output of your script doesn't illustrate the structure at all. Data::Dumper will do that to some extent.

Replies are listed 'Best First'.
Re^4: Print all derefs and method calls in a directory (Friday golf)
by jepri (Parson) on Jan 09, 2009 at 10:29 UTC
    I had to do this statically, because I didn't have full environment to run it in(so no Data::Dumper). I was trying to find the structure of a couple of large state hashes that get passed around, using only what I saw in the code. I'm sorry I wasn't clear about that.

    Both you and I might have written the code differently, but I had to tackle what was in front of me. This code has a lot of nested hash derefs, and when they are all listed by the command line, they form a convenient hierachy which shows the keys and sub-keys. A possible advantage over data dumper (in this case) is that it shows which keys are accessed by the program, rather than all the ones that exist.

[reply]

      Both you and I might have written the code differently,

      Again, I didn't comment on that. My only beef was with your statement that everyone uses "->".

      because I didn't have full environment to run it in(so no Data::Dumper)

      I suggest you fix your broken install.

[reply]
[d/l]

In Section Seekers of Perl Wisdom