Hi,

I am looking to create a Perl script to FTP files from multiple source directories to multiple target directories, with each source directory is mapped to a particular target directory. For example, FTP all files from source dir 100 to target dir 100, source 200 to target 200, etc.

Here is a script I am working from for a single file:

use Net::FTP;

chdir "/tmp";
$ftp = Net::FTP->new("host", Debug => 0);
$ftp->login("username",'-password@');
$ftp->cwd("/dir");
$ftp->get("the.file");
$ftp->quit;

I know I need to use a loop, but I am not quite sure of how to use it without defining multiple variables for each directory. Any suggestions?

Thanks

for my $file ( glob( $dir ) ){ 
  next unless -f $file;  # skip all but regular files 
 
  # ftp the file 
}

Thanks for the reply.

But what about if all directories on the source are at the same level, and all the directories on the target are as well. So

Source Dir 100 --> Target Dir 100
Source Dir 200 --> Target Dir 200
Source Dir 300 --> Target Dir 300
Source Dir 400 --> Target Dir 400
Source Dir 500 --> Target Dir 500

with no sub directories.

Thanks

my @dirs = ( 
  [ 'Source Dir 100' => 'Target Dir 100' ], 
  [ 'Source Dir 200' => 'Target Dir 200' ], 
  [ 'Source Dir 300' => 'Target Dir 300' ], 
  [ 'Source Dir 400' => 'Target Dir 400' ], 
  [ 'Source Dir 500' => 'Target Dir 500' ], 
); 
 
for my $dir_pair ( @dirs ){ 
  my $src_dir = $dir_pair->[0]; 
  my $trgt_dir = $dir_pair->[1]; 
 
  chdir $src_dir; 
  $ftp->cwd( $trgt_dir ); 
 
  for my $file ( glob( '*' ) ){ 
    next unless -f $file; 
    $ftp->put( $file ); 
  } 
}