Shell out FTP task using Perl

Posted on by

Shelling out an FTP task using perl

#!/usr/bin/perl

@list = `ls /local_path_to/folder`;
foreach (@list) {chomp;}
${IMAGE_LIST} = join("\n",@list);
${IMAGE_LIST} =~ s/^/put /mg;

$script = <<HERE;
ftp -inv ftp.yoursite.com<<ENDFTP
user username password
lcd "/local_path_to/folder"
cd "remote/folder"
bin
${IMAGE_LIST}
bye
ENDFTP
HERE

`$script`;

exit 0;