Perl module chkIPadr - Revision history

Heth at 07:50, 31 March 2010

2010-03-31T07:50:13Z

Heth at 07:49, 31 March 2010

2010-03-31T07:49:54Z

Heth: New page: #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]*)...

2009-11-09T12:51:13Z

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]*)...

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]*)\.([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)
</source>

@@ Line 24: / Line 24: @@
+}
 ; #Et modul skal afslutte sandt (1)
 [[Category:Perl]]