http://www.perlmonks.org?node_id=932275


in reply to request URL from a specified IP address

When I read your post you seem to be asking, "I want to test many IP addresses for a URL (or URI)" because you were thinking you could accomplish this by just editing the /etc/hosts file and then test. If I've read you're problem correctly then something like this would work or get you started.

#!/usr/bin/perl use strict; use warnings; use LWP::Simple; my @IP = qw/ 192.168.1.1 192.168.1.2/; my $url = '/home/index.html'; foreach (@IP) { print "TESTING: $_$url\n"; my $reply = get("http://$_$url"); #test reply here, etc... }
another way:

I would probably put all of my IPs in a file:

192.168.1.1

192.168.1.2

etc ...

and call it ip.txt

#!/usr/bin/perl # test_url.pl use strict; use warnings; use LWP::Simple; my $ip=""; my $url = '/home/index.html'; while(defined($ip=<STDIN>)) { my $reply = get("http://$ip$url"); warn "couldn't get $ip$url\n" unless defined $reply; }

and then cat ip.txt | test_url.pl Something like this... Good luck, Rob