Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re^3: Determine largest key in hash

by MidLifeXis (Prior)
on Oct 04, 2011 at 17:56 UTC ( #929620=note: print w/ replies, xml ) Need Help??


in reply to Re^2: Determine largest key in hash
in thread Determine largest key in hash

Ok, Given that use, I would probably do either a sparse array, or a *cringe* hash with numeric keys. Please note that your data under each first level key is not correct...

my %hash = ( 1 => [ { name => "Shrek", event => "I saw shrek!" }, ], 6 => [ { name => "Donkey", event => "I saw the donkey!" }, { name => "Fiona", event => "I saw Fiona!" }, ], );

You would access this stuff then with....

for my $trigger ( @{ $hash{$cnt} || [] } ) { # Do work here with $trigger .... }

See Re: Determine largest key in hash for details on how to push data into the trigger list.

As a sparse array, this would look like...

my @data = ( [ # 0 (remember, we are zero-based) { name => "Shrek", event => "I saw shrek!" }, ], undef, # 1 undef, # 2 undef, # 3 undef, # 4 [ # 5 - zero-based => 6th element { name => "Donkey", event => "I saw the donkey!" }, { name => "Fiona", event => "I saw Fiona!" }, ], );

You would change your loop to...

for my $trigger ( @{ $data[$cnt-1] || [] } ) { # Do work here with $trigger .... }

I still have a little bit of a cringe-factor with the layout of the sparse array, and would probably reevaluate the control logic around that, but this shows a couple of ways where the structure can make quite a difference in how you manage your data.

--MidLifeXis


Comment on Re^3: Determine largest key in hash
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (8)
As of 2014-12-29 03:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (184 votes), past polls