Public Scratchpad | Download, Select Code To D/L |
The foreach server code begins like this...
open (FILE, '<', 'hostfile') or die "Could not open 'hostfile' : $!"; my @SERVERS = <FILE>; close FILE; foreach $server (@SERVERS) { #print OUTPUT "[$server]\n"; chomp($server);