perl call variable name using another variable(array)

Question

my @CLASS_TYPES = ("INTRA", "BB", "CAT");
my @INTRA_NEIGH = ("1.1.1.1/32","2.2.2.2/32");
my @BB_NEIGH = ("3.3.3.3/32","4.4.4.4/32" );
foreach my $class (@CLASS_TYPES) {
    my $csv = @.$class._NEIGH;
    print($csv);

when I print $csv I am expecting to print the array values how do I achieve that

You don't. See Why it's stupid to `use a variable as a variable name' and A More Direct Explanation of the Problem. — choroba
– choroba, Commented Jun 26, 2019 at 16:18
Is @LSP_CLASS_TYPES supposed to be @CLASS TYPES? It sounds like you really want a hash. — Grinnz
– Grinnz, Commented Jun 26, 2019 at 16:18

ikegami · Accepted Answer · 2019-06-26 17:33:21Z

3

That's not the right approach. See Why it's stupid to `use a variable as a variable name' and A More Direct Explanation of the Problem.

The very fact that @CAT_NEIGH doesn't exist illustrates part of the problem.

Solution:

my @CLASS_TYPES = ("INTRA", "BB", "CAT");
my %NEIGH = (
   INTRA => [ "1.1.1.1/32", "2.2.2.2/32" ],
   BB    => [ "3.3.3.3/32", "4.4.4.4/32" ],
);

for my $class (@CLASS_TYPES) {
   next if !$NEIGH{$class};

   print "$_\n" for @{ $NEIGH{$class} };
}

or just

my %NEIGH = (
   INTRA => [ "1.1.1.1/32", "2.2.2.2/32" ],
   BB    => [ "3.3.3.3/32", "4.4.4.4/32" ],
);

for my $class (keys(%NEIGH)) {
   print "$_\n" for @{ $NEIGH{$class} };
}

edited Jun 26, 2019 at 17:33

answered Jun 26, 2019 at 17:28

ikegami

391k17 gold badges291 silver badges555 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

ikegami Over a year ago

Tip: [ "1.1.1.1/32", "2.2.2.2/32" ] can also be written as [qw( 1.1.1.1/32 2.2.2.2/32 )]

Collectives™ on Stack Overflow

perl call variable name using another variable(array)

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related