Используйте функцию Perl Join для создания переменных

Question

Я пытаюсь сделать что-то вроде этого:

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);
}

Я хочу получить доступ к информации @Amode через $ newmode.Это возможно?

Answer 1

Я вижу, что вы пытаетесь сделать там, но, честно говоря, я думаю, вы делаете это более запутанным, чем нужно.

Почему бы не использовать хэши?

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

Answer 2

Вы не можете связать вместе имена переменных, но вы можете создать хеш-ключи и получить к ним доступ.

например.

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

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