Arrays 在perl中查找元素的位置

我在这个问题上遇到了最困难的时刻。我是编程新手，我不知道如何在用户要求的位置选择氨基酸。我的问题是：

这是我的阵列：

@newarray = ('Phe', 'Val', 'Asn', 'Gln', 'His',
             'Leu', 'Cys', 'Asp', 'Ser', 'His'); 

问题要求用户输入一个介于1和多肽中氨基酸数量之间的数字，并在该位置打印氨基酸（例如，如果用户输入“4”，程序应打印“Gln”

这就是我到目前为止所做的：

@newarray = ('Phe', 'Val', 'Asn', 'Gln', 'His',
             'Leu', 'Cys', 'Asp', 'Ser', 'His'); 

print "Please print a number between 1 and 10\n";

chomp ($variable_name = <STDIN>)

@newarray=（'Phe'，'Val'，'Asn'，'Gln'，'His'，
‘Leu’、‘Cys’、‘Asp’、‘Ser’、‘His’；
打印“请打印一个介于1和10之间的数字\n”；
chomp（$variable_name=）

要从数组

@newarray

打印索引

（$variable\u name-1）

处的值，可以执行以下操作：

print $newarray[$variable_name - 1], "\n"; 

---

有关详细信息，请参阅。

您可以尝试打印$newarray[$variable\u name-1]，“\n”非常感谢！这完全奏效了！这是一个小问题，但我想把

$variable\u name

改成更像

$amacid\u position

。在这种情况下这是一件小事，但选择描述性名称是一个很早养成的好习惯。谢谢你的建议！

@newarray

和

$variable\u name

变量的名称很糟糕。变量名称应该描述它们包含的数据。