Shell Programming and Scripting

Hello. Below is a perl script where in it has to display if the directory is update or not.

Code:

#!/usr/bin/perl
use File::stat;
use Time::localtime;

my @a = glob "*" ;
foreach (@a) {

    if ( -e $_)
    {
        my $d = ctime(stat($_)->mtime);
        print "FILE:  $_  \n DATE UPDATED:  $d.\n";
    }
    else
    {
            print "No file found $_.\n";
    }
}

display:

Code:

FILE:  mrm
 DATE UPDATED:  Fri Jul 23 21:35:03 2010.
FILE:  mysql
 DATE UPDATED:  Fri Jul 23 21:37:08 2010.

On the display, MRM and MYSQL our directories and it displays the date when it was last updated. Each directory have a file like this: mysql07232010-18:00.gz.
(the backup file). Every day it creates new file with almost the same file name, the only difference is that the number changes because it depends on the date when it was created. I need to add on the script above that when there's no backup on that day, it will display the date when it has no backup. Sample Output: (let say the directory does not update for two days (Jul 22 and 23).

Code:

 

FILE:  mysql
  REMARKS:  No Backup on Thu Jul 22 21:35:03 2010.
                    No Backup on Fri Jul 23 21:35:03 2010.

Thanks.