[EMAIL PROTECTED] [D], on Sunday, December 5, 2004 at 06:50
(-0500) made these points:
try reading mid:[EMAIL PROTECTED] posts, and what about
using something like this:
print "Good IP address\n" if goodIP('11.22.33.44');
sub goodIP { gethostbyaddr pack('C4', split /\./, shift), 2 }
also there
#if ($var =~ m/^\d+$/) {
#if ($var !~ /\D/) {
if ( $var = ipv4_checkip ($var)) {
print "your variable is a number $var\n";
} else {
print "number $var is not a number\n";
}
Here is my PERL5LIB path
/usr/local/lib:/usr/local/lib/perl5/5.8.0:/usr/local/lib/perl5
