Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re^3: Generate Random IP Addresses

by BrowserUk (Pope)
on Mar 15, 2008 at 16:04 UTC ( #674364=note: print w/ replies, xml ) Need Help??


in reply to Re^2: Generate Random IP Addresses
in thread Generate Random IP Addresses

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.


Comment on Re^3: Generate Random IP Addresses
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://674364]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (10)
As of 2014-08-29 19:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (287 votes), past polls