Perl：创建字母数字序列变量

Question

我想寻求帮助来创建一个 Perl 代码，我可以在其中创建字母数字顺序变量（可以用作数组、散列或任何其他类型的变量）。

for ( my $x = 1; $x <= 10; $x++ ){
  my $var$x = "" *# to create empty variable with the word 'var' + the integer from x (var1, var2, var3, ...)* 
  for ( my $y = 1; $y < 10; $y++){
    my $var$x = $var$x.''.$x.''.$y *# to store/concatenate the values from $x+$y into var$x*
  }
  print "$var$x"
}

应该打印什么：

var1 = 11, 12, 13, 14, 15, 16, 17, 18, 19
var2 = 21, 22, 23, 24, 25, 26, 27, 28, 29

等等

谢谢

Answer 1

你所要求的是一个非常糟糕的主意。您想创建一个变量，使用另一个变量的值作为名称的一部分。这被称为“符号引用”，并且有一个很好的理由说明它是use strict变成致命错误的三件事之一。

有关它可能导致的问题的详细讨论，请参阅Mark Dominus 的这 三篇 文章。

几乎可以肯定，问题的最佳解决方案是使用数组、散列或其他（更复杂的）数据结构。但是，如果不了解更多关于您在做什么的信息，就很难提出任何具体的建议。