in reply to ftpbackup
A few small things
If you wanted to be moderately fancy you could fork() each server's FTP session. That way your script wouldn't hang waiting for an unreachable host to time out
It looks you are testing for comments twice.
andfor (my $nr = 0; $nr < $filearrnr; $nr++) { splice (@filearr, $nr, 1) if ($filearr[$nr] =~ /^#/) }
You might consider the more perlish, more compact constructionnext if ($filearr[$nr] =~ /^#/);
instead of:foreach my $nrl (@hostarr){}
for (my $nr1 = 0; $nr1 < $hostarrnr; $nr1++)
If you wanted to be moderately fancy you could fork() each server's FTP session. That way your script wouldn't hang waiting for an unreachable host to time out
In Section
Code Catacombs