Make a random IP address in Perl
This Perl script makes reasonably convincing random IPv4 internet addresses.
#!/home/ben/software/install/bin/perl use warnings; use strict; sub randomip { my @digits; for (0..3) { push @digits, int (rand (255) + 1); } return join '.', @digits; } for (0..9) { print randomip (), "\n"; }
The output looks like this:
210.114.174.159 179.109.16.163 69.198.235.233 156.91.54.33 207.58.108.125 30.138.33.56 159.67.60.202 152.91.56.166 206.230.248.165 119.223.60.203
Copyright © Ben Bullock 2009-2025. All
rights reserved.
For comments, questions, and corrections, please email
Ben Bullock
(benkasminbullock@gmail.com).
/
Privacy /
Disclaimer