Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: How can I acces the "member" stepxxx of the structure given below?

by dorko (Prior)
on Feb 05, 2016 at 14:23 UTC ( #1154483=note: print w/replies, xml ) Need Help??


in reply to How can I acces the "member" stepxxx of the structure given below?

Without any other context, this will give you something to work with:

use strict; use warnings; use 5.016; use Data::Dumper; my @array_of_hashes = { 'opt' => { 'step820' => '0', 'step190' => '0', 'step124' => '0', 'step127' => '0', 'step410' => '0', 'step015' => '2', 'step130' => '1', 'step013' => '0', 'step715' => '0', 'step540' => '0', 'step800' => '5', 'step135' => '0', 'step003' => '0', 'step455' => '0', } }; say Dumper @array_of_hashes; foreach my $step_number ('step001' .. 'step820') { next if (not defined $array_of_hashes[0]{opt}{$step_number}); say $step_number . " = " . $array_of_hashes[0]{opt}{$step_number}; + }

Interesting output:

step003 = 0 step013 = 0 step015 = 2 step124 = 0 step127 = 0 step130 = 1 step135 = 0 step190 = 0 step410 = 0 step455 = 0 step540 = 0 step715 = 0 step800 = 5 step820 = 0

Cheers,

Brent

-- Yeah, I'm a Delt.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (8)
As of 2020-05-26 18:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If programming languages were movie genres, Perl would be:















    Results (150 votes). Check out past polls.

    Notices?