Если строка соответствия оператора и аргументы пользователя

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

elsif ($user_input eq "sort by" && $ARGV[2]) 
    { 
      print"this is working"; 
      #use arguments to sort by user command 
      print $ARGV[2], "\n\n\n"; 

    } 
    else #user validation 
    { 
      print "Error, please re-enter command \n\n"; 
      &Menu; 
    }`

источник

2013-05-01 Anonymous

Вы забывая 'chomp' пользовательского ввода? – squiguy

Если вы хотите склеить строки вместе, используйте оператор конкатенации '.', как в' $ user_input eq "sort by". $ ARGV [2] '. (Обратите внимание на пробел после 'by'.) – michaelb958

Пожалуйста, сообщите нам, какой ввод вы пробовали, что дает неожиданные результаты и как заполняется' $ user_input'. – darch

Я не уверен, что я понимаю ваш вопрос, то, что вы хотите, чтобы проверить проверки строки и аргументы пользователей независимо друг от друга. Вы используете короткое замыкание и операцию «& &», поэтому в тот момент, когда он встречает первое ложное, он перестает проверять остальную часть выражения. Это вам поможет?

источник

2013-05-01 05:02:32 Prashant

Прошу прощения за то, что вы расплывчаты. То, что мне нужно для инструкции if, соответствует совпадению ввода с пользователем «sort by x», где x является аргументом пользователя и может быть чем угодно. – 2013-05-01 05:06:29

вы можете использовать оператор конкатенации строк, ".", Попробуйте это elsif ($ user_input eq "sort by". $ ARGV [2]) – Prashant

Изменение:

elsif ($user_input eq "sort by" && $ARGV[2])

по:

elsif(defined($ARGV[2]) and ($user_input eq "sort by $ARGV[2]"))

источник

2013-05-01 05:40:23

Вы можете использовать Params :: Validate пакет, доступный на CPAN. Цитирование примера на странице

validate(
     @_, 
     { foo => { regex => qr/^\d+$/ } } 
    );

Вы можете использовать это, чтобы проверить входной аргумент против конкретного регулярного выражения. Существуют и другие полезные проверки. Params :: Validate может сделать для вас.

Params::Validate

источник

2013-05-01 05:50:15 arunxls

elsif (my ($sort_by_what) = $user_input =~ /^sort by (\w+)\z/) { 
    print "ok, I'll sort by $sort_by_what\n"; 
}

(использовать что-то другое, чем \ W +, чтобы соответствовать Вашему "х", если необходимо)

источник

2013-05-01 06:24:53 ysth

Если строка соответствия оператора и аргументы пользователя

ответ

Смежные вопросы