Re: Generate Random IP Addresses


Syntactic Confectionery Delight
	PerlMonks

Re: Generate Random IP Addresses

by pelagic (Priest)

on Sep 07, 2004 at 13:35 UTC ( [id://389034]=note: print w/replies, xml )

Need Help??

in reply to Generate Random IP Addresses

#!/usr/bin/perl
use strict;
srand(time() ^ ($$ + ($$ << 15)));

for (1..100){
    print join ('.', (int(rand(255))
                     ,int(rand(255))
                     ,int(rand(255))
                     ,int(rand(255))))
          , "\n";
}
__OUTPUT__
210.232.115.79
18.239.245.96
15.138.29.10
182.166.124.240
118.118.155.180
80.200.1.109
139.170.113.124
85.13.30.193
80.198.199.175
111.162.166.83
... a.s.o.
[download]

pelagic