nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

Variable name as input ?

nipper

OK, so I am passing an array name as input (STDIN). I was trying to avoid a big if then else or case statement but I am not certain how to convert data to a variable name.

I want to use @array1 if the parameter is array1, @array2 for array2, etc.

I tried a hash:


%master = ( "array1" => \@array1, "array2" => \@array2);
foreach ($master{ARGV[0]})

but no luck, can I do what I want ? Tips/Pointers/RTFMs appreciated.

Find more posts tagged with

Comments

moonkhanna

Hi Andy,

Try using the below -

%master = ( "array1" => \@array1, "array2" => \@array2);
foreach (@master{ARGV[0]})

BTW - I have been running into similar issues with hash of arrays, never got them resolved and went of the other way then..

ISCBorisB

Hi Andy,

Try using the below -

%master = ( "array1" => \@array1, "array2" => \@array2);
foreach (@master{ARGV[0]})

BTW - I have been running into similar issues with hash of arrays, never got them resolved and went of the other way then..

Close... Correct Casting Syntax is a bit more convoluted

use strict;
my @array1 = (0, 1, 2);
my @array2 = ('A', 'B', 'C');

my %master = ( 
   "array1" => \@array1,
   "array2" => \@array2,
);

foreach (@{$master{$ARGV[0]}}) {
   print "$_\n";
}

ISCBorisB

OK, so I am passing an array name as input (STDIN). I was trying to avoid a big if then else or case statement but I am not certain how to convert data to a variable name.

I want to use @array1 if the parameter is array1, @array2 for array2, etc.

I tried a hash:
%master = ( "array1" => \@array1, "array2" => \@array2);
foreach ($master{ARGV[0]})
but no luck, can I do what I want ? Tips/Pointers/RTFMs appreciated.

Alternatively, you may simply evaluate passed String

use strict;
my @array1 = (0, 1, 2);
my @array2 = ('A', 'B', 'C');

my @temp;
my $codeString = qq(\@temp = \@$ARGV[0]);
eval $codeString;
foreach (@temp) {
   print "$_\n";
}

nipper

Of course it helps when the %master is defined AFTER the arrays are initialized. I had it in the beginning and could not freaking figure out why your example worked and my code failed.

Thanks Munish and Bo.