Perl – Expression régulière pour tester la validité d’une adresse IP

by NicholasPhillips
January 30, 2014

while($addr !~ /^([O1]?\d\d?|2[0-4]\d|25[0-5])\.([O1]?\d\d?|2[0-4]\d|25[0-5])\.([O1]?\d\d?|2[0-4]\d|25[0-5])\.([O1]?\d\d?|2[0-4]\d|25[0-5])$/){
print “Please give the IP address of the remote server:\n“;
$addr = get_answer();
}

Tags:adresse ip expression régulière ip ip address perl regex regular expression