Shell Programming and Scripting

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

}

found=$(find /Backup/servers/10.1.10.35 -mtime -1 -size +0 -name 'mysql*.gz')
[[ ! -z "$found" ]] && echo 'backup ok'  || echo 'backup failed'