> > (\d{1,3}\.){3}\d{1,3}
> sub goodIP { gethostbyaddr pack('C4', split /\./, shift), 2 }
> print "Good IP address\n" if goodIP('11.22.33.44');> You'd better define "good". I agree -- let's define it as a CIDR block: http://search.cpan.org/search?query=CIDR&mode=all =) -- WC -Sx- Jones http://youve-reached-the.endoftheinternet.org/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
