Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: Creating Arrays Dynamically

by liverpole (Monsignor)
on May 24, 2010 at 00:54 UTC ( #841307=note: print w/ replies, xml ) Need Help??


in reply to Creating Arrays Dynamically

Hi listanand,

Here's one way you could do it with a reference to a hash of array refs:

use strict; use warnings; use Data::Dumper; my @array_names = qw (a b c d e f); my $h_arrays = { }; for my $name (@array_names) { $h_arrays->{$name} = [ $name ]; } printf "I've now got these arrays in \$h_arrays: %s\n", Dumper($h_arr +ays); __END__ Output: I've now got these arrays in $h_arrays: $VAR1 = { 'e' => [ 'e' ], 'c' => [ 'c' ], 'a' => [ 'a' ], 'b' => [ 'b' ], 'd' => [ 'd' ], 'f' => [ 'f' ] };
I'm fond of hash references, so I'd do it that way.  More simply, though, you could use a hash (instead of hash references), containing the array references:
use strict; use warnings; use Data::Dumper; my @array_names = qw (a b c d e f); my %arrays = ( ); for my $name (@array_names) { $arrays{$name} = [ $name ]; } printf "I've now got these arrays: %s\n", Dumper(\%arrays);

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/


Comment on Re: Creating Arrays Dynamically
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (3)
As of 2014-07-13 23:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (252 votes), past polls