在perl中查找元素的位置

Question

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

这是我的数组：

@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>)

Answer 1

要从数组@newarray中打印索引($variable_name - 1)处的值，您可以执行以下操作：

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

有关详细信息，请参阅perlintro。