Perl использует различные элементы в массиве для пользовательского меню опций

Вот что я придумал, что позволяет вам иметь строку для запроса ввода и проверяет правильность ответа. Если нет, он снова запросит пользователя. Подпрограмма возвращает индекс выбранного элемента массива.

sub displayMenu($@)
{
  # First item is the query string, so shift it 
  # from the inputs and save it 
  my $queryString = shift @_;
  # Loop control variable;
  my $lcv;
  # User selection of choices
  my $selection;
  # Flag to indicate you have the correct input
  my $notComplete = 1;

  # Clear some space on the screen
  print "\n" x 10;
  # Loop until you have an answer
  while ( $notComplete ) 
  {

    print "-" x 40 . "\n";
    for( $lcv = 1; $lcv <= scalar(@_) ; $lcv++ ) 
    {
      printf " %4d)  %s\n",$lcv,$_[$lcv-1];
    }
    print "\n";
    # Query for a response
    print "$queryString\n";
    # Get response
    $selection = <STDIN>;
    # Remove the carriage return
    chomp($selection);

    # Check to make sure it is string of digits
    # and it is within the range of the numbers
    # If it is, clear the not complete flag
    if (( $selection =~ m/^\d*/ ) && 
    ( 0 < $selection ) && ( scalar(@_) >= $selection)) 
    {
      $notComplete = 0;
    }
    # Else there is a error so try again
    else
    {
      print "\n" x 10;
      print "\nIncorrect Input.  Try again\n";
    }
  }

  # Return the index of the selected array item
  return ($selection - 1);
}

Пример того, как его вызвать, выглядит следующим образом:

$returnValue = displayMenu("Enter number of the item you want to select",("Test1","Test2","Test3"));

Где первый элемент в вызове — это строка для печати для ввода выбора, за которой следует массив элементов, из которых нужно выбрать. Затем он возвращается в индексе из выбора.

Ответы на ваши вопросы из комментариев ниже. Мой ответ был слишком длинным, чтобы быть в комментарии.

Если вы разобьете printf " %4d) %s\n",$lcv,$_[$lcv-1] на части, printf будет функцией для форматирования вывода. Первый аргумент для печати, если это строка, указывающая формат строки, за которой следуют элементы, которые предоставляют значения для форматирования. В этом случае %4d предназначен для вывода целого числа, которое должно занимать 4 пробела в строке, а %s — для вывода строки. Следующие элементы являются аргументами для спецификаторов формата, в данном случае $lcv - это число выбора (% 4d), а $_[$lcv-1] - это выбор ($ lcv-1 - это потому, что массив в индексе с отсчетом от нуля, а $_ - это доступ к аргументам, где передано в подпрограмму. ПРИМЕЧАНИЕ. Я переместил первый аргумент элементов, переданных для получения заголовка) для %s. Если вы посмотрите на http://perldoc.perl.org/functions/sprintf.html он дает описание различных спецификаторов формата (sprintf предназначен для печати в строку, но спецификаторы формата одинаковы для printf).

( 0 < $selection ) && ( scalar(@_) >= $selection)) должен убедиться, что ввод находится в заданном диапазоне вариантов. Выбор должен быть больше нуля и меньше или равен количеству элементов, которые выбираются, что и возвращает scalar(@_) (@_ относится к аргументам, переданным в подпрограмму, а скалярная функция возвращает количество элементов в массиве ).

Вам нужно будет сделать некоторую проверку.

for my $id (1 .. scalar @options) {
  my $element = $options[$id - 1];
  say "$id: $element";
}
my $input = <STDIN>;
my $selection = $options[$input - 1];

Я бы предложил что-то вроде

sub get_user_selection {
  my(@choices) = @_;
  my $index = 1;
  for my $choice (@choices) {
    print "$index.) $choices[$index - 1]\n";
    $index++;
  }
  print "Enter your choice: ";
  return $choices[<STDIN> - 1];
}

Эта подпрограмма отобразит меню и вернет значение, выбранное пользователем путем ввода числа.