Re: IPv4 regex (Net::IPv4Addr)

Have you considered the Net::IPv4Addr CPAN module? I've yet to use it myself, but it looks like it might fit your bill.

From README:
Net::IPv4Addr provides functions for parsing IPv4 addresses both in traditional address/netmask format and in the new CIDR format. There are also methods for calculating the network and broadcast address and also to see check if a given address is in a specific network.

And from POD:

ipv4_checkip 
    if ($ip = ipv4_checkip($str) ) {
    # Do something
    }
Return the IPv4 address in the string or undef if the input doesn't co
+ntains a valid IPv4 address.
[download]

    cheers,
    Don
    striving for Perl Adept
    (it's pronounced "why-bick")

Comment on Re: IPv4 regex (Net::IPv4Addr) Download Code

Replies are listed 'Best First'.
Re: IPv4 regex (Net::IPv4Addr) by ryan (Pilgrim) on Feb 18, 2001 at 18:38 UTC
I got the module and this is how they do it: `my $ip_rgx = "\\d+\\.\\d+\\.\\d+\\.\\d+"; sub ipv4_chkip($) { my ($ip) = $_[0] =~ /($ip_rgx)/o; return undef unless $ip; # Check that bytes are in range for (split /\./, $ip ) { return undef if $_ < 0 or $_ > 255; } return $ip; }` [download] Perfect, I'm not going to use the module for my application though because I wanted it to run off standard packaged modules so some totally inept computer users could make use of the script without my assitance. The code however may be making an appearance -- Thanks.	[reply] [d/l]
(tye)Re: IPv4 regex (Net::IPv4Addr) by tye (Sage) on Feb 19, 2001 at 01:00 UTC
Heh. I just wanted to note that the test for `$_ < 0` is a waste since nothing matching \d+ can be negative. - tye (but my friends call me "Tye")	[reply] [d/l]
Re (tilly) 2: IPv4 regex (Net::IPv4Addr) by tilly (Archbishop) on Feb 19, 2001 at 03:35 UTC
`perl -e 'use integer; print 3000000000 + 1'`	[reply] [d/l]
(tye)Re2: IPv4 regex (Net::IPv4Addr) by tye (Sage) on Feb 19, 2001 at 11:34 UTC


Your skill will accomplish what the force of many cannot
	PerlMonks