Shell Programming and Scripting

perl -le 'if (-e "/dir1/dir2/dir3/mysql07222010-18:00.gz"){print "OK"} else {print "No backup"}'

#!/usr/bin/perl

chomp($part=`date +%m%d%Y`);
$fname="mysql$part-18:00.gz";

if (-e $fname)
{print "OK\n";}
else {print "No Backup\n";}

-rw-r--r-- 1 opergfs prodsup   0 Jul 21 18:00 mysql07212010-18:00.gz
-rw-r--r-- 1 opergfs prodsup   0 Jul 22 18:00 mysql07222010-18:00.gz

#!/usr/local/bin/perl

#$path = perl;

#use File::stat;
use Time::localtime;

sub ExampleFiles{
         $today = time;
         $today -= $today % 86400;
         $return_value = 0;
         $mtime = (stat("$_[0]"))[9] || die "cannot stat file $!";
         $size =  (stat("$_[0]"))[7];  # size in bytes$
         $ok = "NOT OK";
         my @a = glob "mysql*.gz" ;

         #my $d = ctime(stat($_)->mtime);

      if( $size > 0 && $mtime >= $today )
       {
          $ok = "Successful";
          $return_value = 1;
       }


#foreach (@a) {
#    if ( -e $_)
#    {
#          print "File found $_.\n";
#    }
#    else
#    {
#            print "No file found $_.\n";
#    }
#}



        print "$_[0] is $ok \n ";
        return $return_value;
}
$found = 0;

 opendir (DIRHNDL, "/Backup/servers/10.1.10.35") ||  die "Cannot open directory $!";
@filelist = readdir (DIRHNDL);

closedir (DIRHNDL);
foreach $filename ( @filelist )

{
  if ($filename =~ $path)
   {
     $found |= ExampleFiles $filename;
   }

foreach (@a) {
    if ( -e $_)
    {
          print "File found $_.\n";
    }
    else
    {
            print "No file found $_.\n";
    }
}

}