如何在Perl中使用索引名称创建新变量？

Question

您好，我读过一些相关的问题，似乎对我没有帮助。 这是一个代码，将解释我想要什么。

for ($i=0;$i<5;$i++) {
  my $new$i=$i;
  print "\$new$i is $new$i";
}

期望变量被命名为$new0 ， $new1 ， $new2 ， $new3 ， $new4 ， $new5 。 并有能力像print命令一样在循环中使用它们。 谢谢

Answer 1

您想改用哈希或数组 。 它可以使数据收集保持在一起，从而减少生产过程中的痛苦。

my %hash;
for my $i (0..4) {
    $hash{$i} = $i;
    print "\$hash{$i} is $hash{$i}\n";
}

Answer 2

您能描述为什么确实需要这样做吗？ 马克·杰森·多米纳斯（Mark Jason Dominus）在第1 部分 ， 第2 部分和第3 部分 “为什么将变量用作变量名”中很愚蠢，为什么这样做不是一个好主意。

如果您认为自己的需求是此处所述案例的例外，请告诉我们如何做，这里的人可能会有所帮助。

Answer 3

您在问一个常见问题。 在99.9％的情况下，答案是“ 不要做” 。

这个问题是如此普遍，以至于出现在perlfaq7中：如何使用变量作为变量名？ 。

有关符号引用问题的大量讨论，请参见“ 如何在Perl中使用符号引用？ ”。

Answer 4

使用哈希代替。

my %h=();
$new="test";
for ($i=0;$i<5;$i++) {
  $h{"$new$i"}=$i;
}
while( my( $key, $value ) = each( %h ) ) {
    print "$key,$value\n";
}

Answer 5

如果要创建$ newN这样的变量，可以使用eval ：

eval("\$new$i=$i");

（使用哈希可能会更好）