论坛 › Perl › perl 检验ip地址是否合法

11lxm 发表于 2018-9-1 06:59:20

perl 检验ip地址是否合法

　　根据合法ip规格，写了个检验程序：
　　合法ip:(1..255).(0..255).(0..255).(0..255)范畴
　　sub report{
　　print $_;
　　exit($_);
　　}
　　sub check_ip{
　　if ($_ =~ /^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/){
　　if($1>0&&$1-1&&$2-1&&$3-1&&$4-1 -1 -1 0

查看完整版本: perl 检验ip地址是否合法