Difference between revisions of "Perl module chkIPadr"
From Teknologisk videncenter
m (New page: <source lang=perl> #Filnavn: ip.pm package ip; use base 'Exporter'; our @EXPORT_OK = qw(chkIPadr); use strict; use warnings; sub chkIPadr { my $ip = shift; if ( $ip =~ m/(^[1-9][0-9]*)...) |
(No difference)
|
Revision as of 14:51, 9 November 2009
#Filnavn: ip.pm
package ip;
use base 'Exporter';
our @EXPORT_OK = qw(chkIPadr);
use strict;
use warnings;
sub chkIPadr {
my $ip = shift;
if ( $ip =~ m/(^[1-9][0-9]*)\.([0-9]+)\.([0-9]+)\.([0-9]+)$/ ) {
if (!(($1<224)&($2<256)&($3<256)&($4<256))) {
return(0);
} else {
return($ip);
}
}
#Hvis det ikke er en IP adresse er det måske et DNS-navn
if ( my $packedIP=gethostbyname( $ip )) {
my $realIP = inet_ntoa($packedIP);
return($realIP);
} else {
return(0);
}
}
1; #Et modul skal afslutte sandt (1)