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

Question

我想写一个正则表达式，它只接受有资格作为端口号的有效输入。我想只接受字符0-9的输入而没有特殊字符。该数字不应超过5个字符。

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

my $port_number = <>;

我知道正则表达式应该是这样的。

^[0-9]*$

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

Answer 1

试试这段代码：

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

如果$result符合您的条件，则

$port_number将设置为1，否则将设置为0。