perl - 使用 Join perl 函数创建变量

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

我想通过$newmode 访问@Amode 信息。这可能吗？

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