Perl – Expression régulière pour tester la validité d’une adresse IP
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“; … Read More »Perl – Expression régulière pour tester la validité d’une adresse IP