Как я могу попросить пользователя повторно ввести ввод, когда они вводят неверный ввод, в Perl?

Question

У меня есть подпрограмма Perl, которая запрашивает ввод от пользователя. Я выполняю проверку внутри самой подпрограммы, является ли введенный ввод допустимым.

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

Моя подпрограмма выглядит следующим образом:

sub some_routine {  
    print "Enter a number to select (1) Apple (2) Mango (3) grapes:" 
    $value=STDIN; 
    if($value =~ /[^1-3]/) { 
     print "The input is not valid!"; 
     print "Do you want to continue selecting a fruit again (Y or N)?"; 
     $choice = STDIN; 
     if($choice eq "y") { 
      ### I want to call the subroutine again to enter input ### 
      } else { 
      exit; 
     } 
    } 
} 

Так как рекурсивная подпрограмму в этом?

Answer 1

EDIT: По разным причинам (стиль, производительность и т.д. ...), я бы настоятельно советую не делать рекурсивный вызов здесь, хотя, а проверить его в цикле в то время как.

[Отказ от автоответчика] «С точки зрения стиля, я бы не сделал рекурсивный вызов здесь, но, скорее, проверил его в цикле while, но, я думаю, в какой-то степени это тоже вопрос вкуса. "

Что касается использования рекурсии, в качестве примера, вы можете просто вызвать функцию из функции, например, так:

sub get_positive_number { 
    print "Please enter a positive number: "; 
    my $number = <STDIN>; 
    chomp $number; 
    if ($number > 0) { 
     return $number; 
    } 
    else { 
     return get_positive_number(); 
    } 
} 

my $result = get_positive_number(); 
print "result: $result\n"; 

Answer 2

Там нет причин, чтобы использовать рекурсию для этого. Простой цикл while.

my $input_valid = 0; 
while(!$input_valid) { 
    print "Enter some input: "; 
    my $input = <STDIN>; 
    $input_valid = validate_input($input); 
} 

Если validate_input возвращает 0, то цикл будет повторяться.

Answer 3

Для вызова подпрограммы рекурсивно в Perl, просто вызовите к югу от самого себя, так же, как и в любом другом языке:

sub factorial { 
    my $num = shift; 
    return 1 if $num < 2; 
    return $num * factorial($num - 1); 
} 

Однако, вы действительно не хотите использовать рекурсию для " повторить, пока условие не изменится ".
Вот что while петли для:

my $valid; 
while (!$valid) { 
    print "Enter something: "; 
    my $data = <STDIN>; 
    $valid = validate($data); 
    print "Bzzt! Invalid - try again!\n" unless $valid; 
} 

Answer 4

my $value; 
until(defined $value = get_value()) { 
    print"you didn't enter a valid value\n"; 
} 

sub get_value { 
print "Enter a number to select (1) Apple (2) Mango (3) grapes:" 
    $value=<STDIN>; 
    if($value =~ /[1-3]/) { 
     return $value; 
    } else { 
     return undef;  
    } 
} 

Answer 5

Правильный способ вызова подпрограммы является

goto &some_routine; 

... потому что у вас есть хвост вызов - это последний что вы делаете в своей функции. Если вы называете это нормально, вы едите кадр стека для каждого вызова, а распределение памяти увеличивается. Вызывается таким образом, вы повторно используете один и тот же стек стека. С вашей точки зрения, как программист, это то же самое, что и

return some_routine(@_); 

но без еды.

только работает для подпрограмм, которые называют их последним, что они делают - в других случаях вы действительно должны переключаться на цикл while, который предлагают другие люди (и, для привлекательности кода, вы можете захотеть сделать это так или иначе).

Answer 6

рекурсивный

sub select_fruit {  
    print "Enter a number to select (1) Apple (2) Mango (3) grapes:" 
    $value=<STDIN>; 
    if($value =~ /[^1-3]/) { 
     print "The input is not valid!"; 
     print "Do you want to continue selecting a fruit again (Y or N)?"; 
     $choice = <STDIN>; 
     if($choice eq "y") { 
      $value = select_fruit(); 
      } else { 
      exit; 
     } 
    } 
    return $value; 
} 

Гото - хвостовая оптимизация (TCO)

sub select_fruit { 
    print "Enter a number to select (1) Apple (2) Mango (3) grapes:" 
    $value=<STDIN>; 
    if($value =~ /[^1-3]/) { 
     print "The input is not valid!"; 
     print "Do you want to continue selecting a fruit again (Y or N)?"; 
     $choice = <STDIN>; 
     if($choice eq "y") { 
      goto &select_fruit; 
      } else { 
      exit; 
     } 
    } 
    return $value; 
} 

или повторить

sub select_fruit { 
SELECT_FRUIT: { 
     print "Enter a number to select (1) Apple (2) Mango (3) grapes:" 
     $value=<STDIN>; 
     if($value =~ /[^1-3]/) { 
      print "The input is not valid!"; 
      print "Do you want to continue selecting a fruit again (Y or N)?"; 
      $choice = <STDIN>; 
      if($choice eq "y") { 
       redo SELECT_FRUIT; # same as goto SELECT_FRUIT; 
      } else { 
       exit; 
      } 
     } 
     return $value; 
    } 
} 

и так ...

Answer 7

Используйте IO::Prompt модуль.

С его помощью вы можете написать это:

use IO::Prompt; 
my @choices = qw(Apple Mango Grapes); 
my $answer = prompt("Select :", "-menu" => \@choices); 
print $answer; 

Answer 8

Ваш вход не эк «у», а «у \ п».

Если вы измените линию на if ($choice =~ /^[Yy]/), это позволит вам поймать Y в начале ввода и не беспокоиться о y или да или Y или Да.

В помощь, вы должны использовать <STDIN> вместо STDIN. Всегда добавляйте use strict; use warnings; вверху. Это гарантирует, что вам необходимо определить $ value и $ choice, используя:

my $value = ''; 
my $choice = ''; 

Как и другие люди упомянули. Это, вероятно, более просто, как цикл.

#!/usr/bin/env perl 
use strict; 
use warnings; 

some_routine(); 

sub some_routine {  
    my $value = ''; 
    my $choice = ''; 
    print "Enter a number to select (1) Apple (2) Mango (3) grapes:"; 
    $value = <STDIN>; 
    if($value !~ /[1-3]/) { 
     print "The input is not valid!"; 
     print "Do you want to continue selecting a fruit again (Y or N)?"; 
     $choice = <STDIN>; 
     if($choice =~ /[Yy]/) { 
      some_routine(); 
      } else { 
      exit; 
     } 
    } 
} 

Answer 9

Что я использую простой Гото:

START: 
print "\n Name of the country (any one out of: china, japan or tokyo): "; 
my $country_name = <>; 
chomp($country_name); 

unless ($country_name eq "china" || $country_name eq "japan" || 
    $country_name eq "tokyo") { 
    print "\n Invalid country name entered. Please try again. \n"; 
    goto START; 
} 

Это очень наивный способ, но работает для начинающих.