Perl正則表達式以匹配端口號的輸入

Question

我想寫一個正則表達式 ，只接受可以用作端口號的有效輸入。 我只想接受0-9字符的輸入，而不能輸入特殊字符。 該數字不能超過5個字符。

我使用這種方法讀取用戶輸入。

my $port_number = <>;

我知道正則表達式應該看起來像這樣。

^[0-9]*$

如何在不使用if語句的情況下將正則表達式與命令行輸入的讀取結合起來？

Answer 1

試試這個代碼：

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

如果$port_number符合您的條件，則$result將設置為1，否則將設置為0。