Hi,

I'm quite new to unix and perl scripting and need to write a script to delete files older than 7 days from a remote ftp server. Unix or Perl script would do...

I wrote the following code:

#!/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);

I'm not able to find a way to identify files of pattern aaa* that are older than 7 days. Unix and Perl gurus, please help...

regards,
Arun