Regex 匹配端口号输入的Perl正则表达式

我想编写一个正则表达式，它只接受符合端口号条件的有效输入。我只接受字符0-9的输入，不接受特殊字符。数字不应超过5个字符

我使用此方法读取用户输入

my $port_number = <>;

如何在不使用if语句的情况下将正则表达式与命令行输入的读取结合起来？

请尝试以下代码：

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

如果

$port_number

符合您的条件，则

$result

将设置为1，否则将设置为0

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