Use Join perl function to create variables

Question

I am trying to do some thing like this:

my @Amode=('1','2','3');
my @Bmode=('1','2','3');
my @Cmode=('1','2','3');
my @Atemp=('1','2','3');
my @Btemp=('1','2','3');
my @Ctemp=('1','2','3');

my @mode=('A','B','C');
foreach (@mode) {
    my $newmode = join("",$_,mode);
    my $newtemp = join("",$_,temp);
}

I want to access the @Amode information through $newmode. Is this possible?

You're sort of mixing two metaphors. Symbolic references can be manipulated but not in terms of lexical variables (my variables). And for what you're doing, it's the wrong way anyway. Using symbolic references as a poor-man's real refs opens up a can of worms... no... a refuse dumpster full of worms. Save symbolic refs for Exporter, Memoize, and other "magic" code. — DavidO
– DavidO, Commented Aug 4, 2011 at 22:11

liamgriffiths · Accepted Answer · 2011-08-04 22:03:01Z

6

I see what you are trying to do there, but honestly I think you are making it more convoluted than it needs to be.

Why not use hashes?

my $modes = {
   'A' => [1,2,3],
   'B' => [1,2,3],
   'C' => [1,2,3],
};
foreach my $mode (keys %$modes){
    ... do something with $modes->{$mode};
}

answered Aug 4, 2011 at 22:03

liamgriffiths

3482 silver badges8 bronze badges

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

Comments

TLP · Accepted Answer · 2011-08-04 22:02:44Z

4

You can't string together variable names, but you can make hash keys and access them.

E.g.

my %data = ( "A" => \@Amode, "B" => \@Bmode, "C" => \@Cmode );
my @mode = ("A", "B", "C");

for (@mode) {
    print @{$data{$_}};
}

answered Aug 4, 2011 at 22:02

TLP

68.3k10 gold badges97 silver badges156 bronze badges

Collectives™ on Stack Overflow

Use Join perl function to create variables

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related