Shell Programming and Scripting

#!/usr/local/bin/perl
use File::Basename;
use Net::FTP;
#use Net::FTP::File;
my $verbose = 0;
my $proxy = @ARGV[0];
my $host  = @ARGV[1];
my $ftpuser = @ARGV[2];
my $ftppass = @ARGV[3];
my $remoteDir = @ARGV[4];
my $filetoDelete = @ARGV[5];
my $ftp=Net::FTP->new($host,
           Debug => 0,
           Passive => 0,
           Hash => ($verbose ? \*STDOUT : undef),
           FirewallType => 1,
           Firewall => $proxy,
   ) or exit(1);
   $ftp->login($ftpuser,$ftppass) or exit(2);
chomp($remoteDir);
if ( $remoteDir ne "/" )
{
   $ftp->cwd($remoteDir) or exit(3);
   print $remoteDir;
}
@files=$ftp->ls or exit(4);
foreach(@files) {
     print "$_ \n";
     $ftp->delete($_) ;
}
$ftp->quit;
exit(0);

bash-2.03$ pwd
/var/log/Application
bash-2.03$
bash-2.03$ ls -lrt Application*
-rw-r--r--   1 root     other    34752530 Jan  8 23:59 Application.log.Thu
-rw-r--r--   1 root     other    5179052 Jan  9 23:59 Application.log.Fri
-rw-r--r--   1 root     other    8420980 Jan 10 23:59 Application.log.Sat
-rw-r--r--   1 root     other    2993389 Jan 11 23:59 Application.log.Sun
-rw-r--r--   1 root     other    13932907 Jan 12 23:59 Application.log.Mon
-rw-r--r--   1 root     other    15685534 Jan 13 23:59 Application.log.Tue
-rw-r--r--   1 root     other    360387803 Jan 14 23:59 Application.log.Wed
bash-2.03$

#!/usr/bin/sh
INSTALL_DIR=/var/log/Application
Curr_Dir=`pwd`

cd $INSTALL_DIR
i=`ls |grep "\.log.[a-zA-Z]\{3,3\}$ |wc -l` //here iam grepping any char and minimum of 3 char as Mon, Tue etc..

	if [ 0 -ne $i]
	then
		rm $INSTALL_DIR/*.log.???
		#gzip -f9 $INSTALL_DIR/*.log.???
	fi

find . -type f -mtime +7 | xargs rm -vf