Various ways using various mysteriously named functions from various mysteriously named packages, but it's easy enough with pure perl:
## Subs to convert dotted-quads to integers and vice versa
sub dq2n{ unpack 'N', pack 'C4', split '\.', $_[ 0 ] };;
sub n2dq{ join '.', unpack 'C4', pack 'N', $_[ 0 ] };;
$start = dq2n( '71.100.100.180' );;
print n2dq( $_ ) for $start .. $start + 100;;
71.100.100.180
71.100.100.181
71.100.100.182
...
71.100.100.254
71.100.100.255
71.100.101.0
71.100.101.1
71.100.101.2
...
71.100.101.22
71.100.101.23
71.100.101.24
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
|