Re: IPv4 regex (Net::IPv4Addr)

in reply to Re: IPv4 regex (Net::IPv4Addr)
in thread IPv4 regex

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.

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

Replies are listed 'Best First'.
(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
The code in question didn't `use integer`, and "3000000000 + 1" doesn't match \d+, but other than that, uh, yeah, I suppose you'd want to defend against such values in your IP addresses. (: - tye (but my friends call me "Tye")	[reply] [d/l]

In Section Seekers of Perl Wisdom