Revision: 3125
Updated Code
at November 12, 2010 11:04 by numberwhun
Updated Code
#!/usr/bin/perl use strict; use warnings; print("What is the IP Address you would like to validate: "); my $ipaddr = <STDIN>; chomp($ipaddr); if( $ipaddr =~ m/^(\d\d?\d?)\.(\d\d?\d?)\.(\d\d?\d?)\.(\d\d?\d?)$/ ) { print("IP Address $ipaddr --> VALID FORMAT! \n"); if($1 <= 255 && $2 <= 255 && $3 <= 255 && $4 <= 255) { print("IP address: $1.$2.$3.$4 --> All octets within range\n"); } else { print("One of the octets is out of range. All octets must contain a number between 0 and 255 \n"); } } else { print("IP Address $ipaddr --> NOT IN VALID FORMAT! \n"); }
Revision: 3124
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at June 5, 2007 06:55 by numberwhun
Initial Code
#!/usr/bin/perl use strict; use warnings; print("What is the IP Address you would like to validate: "); my $ipaddr = <STDIN>; chomp($ipaddr); if( $ipaddr =~ m/^(\d\d?\d?)\.(\d\d?\d?)\.(\d\d?\d?)\.(\d\d?\d?)/ ) { print("IP Address $ipaddr --> VALID FORMAT! \n"); if($1 <= 255 && $2 <= 255 && $3 <= 255 && $4 <= 255) { print("IP address: $1.$2.$3.$4 --> All octets within range\n"); } else { print("One of the octets is out of range. All octets must contain a number between 0 and 255 \n"); } } else { print("IP Address $ipaddr --> NOT IN VALID FORMAT! \n"); }
Initial URL
Initial Description
This code will validate not only the four octets contain between 1 and 3 numbers each, but also that the number they contain is between 0 and 255. In all, there are 3 different regex's that I tried and all seem to work fine. The three regex's are: 1. m/^(\d\d?\d?)\.(\d\d?\d?)\.(\d\d?\d?)\.(\d\d?\d?)/ 2. m/\d\d?\d?\.\d\d?\d?\.\d\d?\d?\.\d\d?\d?/ 3. m/\d{1,2}\.\d{1,3}\.\d{1,3}\.\d{1,3}/ The first one is used below. Enjoy!!!
Initial Title
Verify if an IPv4 IP address is valid
Initial Tags
validation, perl
Initial Language
Perl