Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: Accessing an AoHoAoH

by FoxtrotUniform (Prior)
on Jun 07, 2004 at 18:30 UTC ( [id://362065]=note: print w/replies, xml ) Need Help??


in reply to Accessing an AoHoAoH

On the subject of style: I like to decompose nested-structure dereferences into "sensical" single-layer dereferences, as below:

#! /usr/bin/perl -w use strict; my @AoH=( { chapter => "Basic", page => [ { paragraph => "lesson1"}, { paragraph => "lesson2"} ] }, { chapter => "Advanced", page => [ { paragraph => "lesson3"}, { paragraph => "lesson4"} ] } ); foreach my $ch (@AoH) { print $ch->{'chapter'}, "\n"; my $page = $ch->{'page'}; foreach my $paras (@$page) { print "\t", $paras->{'paragraph'}, "\n"; } }

I find this makes code using these structures easier to read, although longer. It's a judgement call as to whether your structure is dense enough to warrant the extra code.

(I also like to use -> for every deref and single-quote every hash key, but that's a whole different issue....)

--
F o x t r o t U n i f o r m
Found a typo in this node? /msg me
% man 3 strfry

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://362065]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others about the Monastery: (8)
As of 2024-04-19 14:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found