Arrays 在Perl中使用变量的内容引用数组中的元素

在Perl中是否可以使用变量的内容引用数组中的元素

我正在创建一个变量（请参见下面的$printelement），该变量包含值“$element[0]”、“$element[1]”、“$element[2]”等等

$counter = 0;
$counter2 = 1; 

$elementlabel = "element";
$opensquarebracket = "[";
$closesquarebracket = "]";

@element = qw(Fast Times at RidgemontHigh); 

print "Array contents:\n\n";

print "This is element[0] : $element[0]\n";
print "This is element[1] : $element[1]\n";
print "This is element[2] : $element[2]\n";
print "This is element[3] : $element[3]\n\n";

while ($counter2 <= 4)
{

   $jk = "\$$elementlabel$opensquarebracket$counter$closesquarebracket";

   $printelement = $jk;
   
   print "This is  element[$counter] : $element[$counter]\n";

   print "This is $printelement : $element[$counter]\n";
   
   print "This is $printelement : $printelement\n\n";

   $counter++;
   $counter2++;
   
}

---

提前谢谢。非常感谢您的帮助。

要执行由Perl代码组成的字符串，您可以使用

---

提示：

对于我的$counter（0..$#元素）{…}

比

$counter=0要好得多$计数器2=1；while（$counter2提示：始终使用
使用严格；使用警告；
Array contents:

This is element[0] : Fast
This is element[1] : Times
This is element[2] : at
This is element[3] : RidgemontHigh

This is  element[0] : Fast
This is $element[0] : Fast
This is $element[0] : $element[0]

This is  element[1] : Times
This is $element[1] : Times
This is $element[1] : $element[1]

This is  element[2] : at
This is $element[2] : at
This is $element[2] : $element[2]

This is  element[3] : RidgemontHigh
This is $element[3] : RidgemontHigh
This is $element[3] : $element[3]

my $x = eval($printelement);
die $@ if $@;