arrays - 如何在 perl 中传入数组索引的名称？

Question

背景

我试图将这四行代码提取到一个函数中:

my @firstList = split /\s+/, $doubleArray{A_I}{B_I};
@firstList = shuffle(@firstList);
my @secondList = split /\s+/, $doubleArray{A_I}{C_I};
@secondList = shuffle(@secondList);

由于唯一的功能差异是二维数组的第二个索引，因此我想将第二个索引(“B_I”和“C_I”)传递到函数中。

建议的解决方案

换句话说，我想创建一个如下所示的函数:

my funkyFunc($){
     my $index = shift;
     my @list = split /\s+/, $doubleArray{A_I}{$index};
     @list = shuffle(@list);
     return @list;
}

我打算这样使用它:

my @firstList = funkyFunc("B_I");
my @secondList = funkyFunc("C_I");

但是，我不确定 perl 将如何解释 "B_I" 或 "C_I"，或者同样地 B_I 和 C_I。由于这种复杂性，我想知道......

问题

perl中有没有办法传入数组索引的名称？

Answer 1

那些不是数组，那些是哈希(字典，其他语言中的关联数组)。这样，B_I 和 C_I 就会被视为裸字字符串。如果这些是实际的数组，那么它们将被视为裸字函数调用，并且您必须让它们可以在调用者中调用，并且不需要在那里引用。

由于您使用的是哈希值，因此键是字符串，并且您传入 'B_I' 将导致 $index 为 B_I< 的字符串，并且由于您的 {$index} 包含裸字字符串中不允许的内容($)，perl 会将其解释为变量而不是一个文字，一切都会按照你想要的方式工作。