Question

I currently have some code which returns a sites header content back:

#!/usr/bin/perl 

use strict;
require IO::Socket; 

my @header; 
my $host = shift;

my $socket = new IO::Socket::INET(
    PeerAddr => $host, 
    PeerPort => 80, 
    Proto => 'tcp') || die "Could not Connect $!\n"; 

print "Connected.\n"; 
print "Getting Header\n"; 

print $socket "GET / HTTP/1.0\n\n"; 
my $i = 0; 
while (<$socket>) { 
    @header[$i] = $_; 
    $i++; 
} 

$i = 0;
print "--------------------------------------\n"; 
while ($i <= 8) { 
    print "@header[$i++]"; 
} 

print "-------------------------------------\n"; 
print "Finished $host\n";

What I would like to do, is to be able to read from a file open (FILE, ‘<‘, shift); and then every IP in the file, to pass into a the header retrieve loop, which saves me from manually doing one by one.

What I mean by this is to have a file containing (example ips): 1.1.1.1 2.2.2.2 on each line and then parsing all of them through the get header function.

Answer 1

Replace

my @header; 
my $host = shift;
...

with

while (<>) {
   chomp( my $host = $_ );
   my @header; 
   ...
}