在perl中查找元素的位置

Question

我在这个问题上遇到了最艰难的时刻。我是编程的新手，我无法弄清楚如何在用户要求的位置选择氨基酸。这是我的问题：

这是我的阵列：

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

问题要求用户输入1和多肽中氨基酸数量之间的数字，并在该位置打印氨基酸（例如，如果用户输入＆＃34; 4＆＃34;程序应该打印＆＃34; Gln＆＃34;

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

@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

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

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

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