File Coverage

blib/lib/IPGen/V4.pm

Criterion	Covered	Total	%
statement	12	24	50.0
branch	0	10	0.0
condition			n/a
subroutine	4	6	66.6
pod	0	2	0.0
total	16	42	38.1

package IPGen::V4;
use 5.005;
use strict;
require Exporter;
use AutoLoader qw(AUTOLOAD);
use vars qw($VERSION @ISA @EXPORT);
@ISA = qw(Exporter);
@EXPORT = qw( ipgen );
$VERSION = '1.1';
sub new{
	my $self = bless {}, shift;
	$self->{range} = shift;
	$self;
}
sub ipgen{
	my($range);
	$range = ref($_[0])?$_[0]->{range}:$_[0];
	if($range =~ /^((\d{1,3}\.){3}\d{1,3})\/(\d{1,2})$/)	#ipv4/block
	{
		my $from = oct("0b".substr(join("",map substr(unpack("B32",pack("N",$_)),-8),split(/\./,$1)),0,$3)."0"x(32-$3));
		join '.', unpack 'C4', pack 'N', $from + int rand (oct("0b".substr(join("",map substr(unpack("B32",pack("N",$_)),-8),split(/\./,$1)),0,$3)."1"x(32-$3)) - $from);
	}elsif($range =~ /^((\d{1,3}\.){3}\d{1,3})-((\d{1,3}\.){3}\d{1,3})$/)	#ipv4-ipv4(full-range)
	{
		my $from = (unpack N => pack CCCC => split /\./ => $1);
		join '.', unpack 'C4', pack 'N', $from + int rand ((unpack N => pack CCCC => split /\./ => $3) - $from);
	}elsif($range =~ /^(\d{1,3})-?(\d{1,3})?\.(\d{1,3})-?(\d{1,3})?\.(\d{1,3})-?(\d{1,3})?\.(\d{1,3})-?(\d{1,3})?$/)	#byte1.1-byte1.2...(sub-range)
	{
		($1+int rand abs $2-$1+1).'.'.($3+int rand abs $4-$3+1).'.'.($5+int rand abs $6-$5+1).'.'.($7+int rand abs $8-$7+1);
	}elsif(!length $range){
		join '.', unpack 'C4', pack 'N',int rand 42949672951; # = 255.255.255.255
	}
}

1;
__END__