First, set up a list of directories.
$f->cwd($dir) or die "Can't cwd to $dir\n";Next, instead of dieing in case of inability to CWD, switch to the next list element in a foreach loop.
For example:
my @directories = qw/code test/; foreach my $dir (@directories) { $f->cwd("/home/$dir") || next ... # your code to fetch the files }
In reply to Re: Net :: FTP
by aitap
in thread Net :: FTP
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |