Shell Programming and Scripting

            $ftp->cwd($destination) or $error=$ftp->message;
            if(!$error)
            {
                $ftp->put($file) or  $error=$ftp->message;
                print "FTP size = [", $ftp->size($file), "] \n";
                print "Local size = [", (-s $file), "] \n";
                &log($failure_logfile,$file, "Error in copying file to destination ".$error) if($error);
                &log($success_logfile,$file,"Success") if(!$error);

FTP size = []
Local size = [1992]

#! /usr/bin/perl
use Net::FTP;
my  $ipadd    = $ARGV[0];
my  $user     = $ARGV[1];
my  $password = $ARGV[2];
my  $destination = $ARGV[3];
my $file      = $ARGV[4];
my $success_logfile='Success';
my $failure_logfile='Failure';
my $error;
if(($ipadd) && ($user) && ($password) && ($destination) && ($file))
{
  my $ftp = Net::FTP->new($ipadd) or $error="Cannot connect to $ipadd: $@";
  if(!$error)
  {
     $ftp->login($user,$password) or $error=$ftp->message;
     if(!$error)
     {
         if(-e $file)
         {
            $ftp->binary();

            $ftp->cwd($destination) or $error=$ftp->message;
            if(!$error)
            {
                $ftp->put($file) or  $error=$ftp->message;
                print "FTP size = [", $ftp->size($file), "] \n";
                print "Local size = [", (-s $file), "] \n";
                &log($failure_logfile,$file, "Error in copying file to destination ".$error) if($error);
                &log($success_logfile,$file,"Success") if(!$error);
            }
         }
     }
     $ftp->quit;
  }
}

sub log
{
    my $log_file        = shift;
    my $filename        = shift;
    my $result = shift;
    $log_file="log/".$log_file;
    if (!(-e "$log_file.csv"))
    {
         open  (FL,">$log_file.csv")||die "Cannot open Log File.$! \n";
         print FL "Filename,Result\n";
         close (FL);
    }
    open (LOG,">>$log_file.csv") || die "Cannot open Log File.$! \n";
    print LOG "$filename,$result \n";
    close (LOG);
}