arrays - 在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了解更多信息。