Shell Programming and Scripting

use Net::FTP
my $flagFile="flag.file";
my $ftp = Net::FTP->new("host") or die "cannot connect \n";
$ftp->login("user","passwd") or die "cannot login \n";
my @list=$ftp->ls(/file/path/);
if (grep {$flagFile eq $_ }@list) {
  $ftp->get("/file/path/file.csv") or die "get failed \n";
}
$ftp->quit;

#!/bin/sh

LOG=/xx/xx/xx/xx/xx/xx/xx

export day=`(date +'%m%d%y_%H%M_')`
set -x

PATH=$1
PATH1=$2
FILE=$3
FILE_T=$4



echo "FTP Started "  >$LOG/$FILE.log
/usr/bin/ftp -inv xx-xxx-xx 221 >>$LOG/$FILE.log <<EOF
user anonymous xxx@xx.xx.x
binary


cd $PATH

mget $FILE
mget $FILE_T

delete $FILE_T

quit

EOF




cd /xx/xx/xx/xx/xx/xx/xx

chmod -f 777 xxxx*.*


if [ -f $FILE_T ]
then
       
	echo "$file found."
             
else
	echo "$file not found."
fi

rm -f $FILE_T

+ chmod -f 777 xxx.csv xxxx.flag
./GET_FILE_FTP_QA.sh: line 44: chmod: command not found
+ '[' -f xxx.flag ']'
+ echo ' found.'
 found.
+ rm -f xxx.flag
./GET_FILE_FTP_QA.sh: line 58: rm: command not found

PATH=$1