Perl регулярное выражение для ввода ввода для номеров портов

Question

Я бы хотел написать регулярное выражение, которое будет принимать только допустимый ввод, который будет квалифицироваться как номер порта. Я хочу только принимать ввод для символов 0-9 и никаких специальных символов. Номер не должен превышать 5 символов.

Я читаю пользовательский ввод, используя этот метод.

my $port_number = <>; 

Я знаю, что регулярное выражение должно выглядеть примерно так.

^[0-9]*$ 

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

Answer 1

Попробуйте этот код:

$result = ($port_number =~ m/^[0-9]{1,5}$/); 

$result будет установлен в 1, если $port_number соответствует вашим критериям, и будет установлен в 0 в противном случае.