Quote

my $verzeichnis = '\\\\XXXXX\\f$\\log\\MSSQL$XXXXXXXXXX\\SqlSrvJobs';
my $datei = 1;
opendir VH, $verzeichnis or die "Kann $verzeichnis nicht oeffnen: $!";
foreach $datei (readdir VH) {
  next unless $datei =~ /reset_QcDemoPj.log$/;
  # Hier wird explizit nach einer Datei gefahndet
  {
 
  print "eine Datei in $verzeichnis ist $datei\n";
}
}# Hier Abfrage des RIMESTEMPS
my $dir;
my $bool = 0; # 0= Nein
      for my $dir
          {
          if(existsGlobalCheck($dir.'/'.$datei,1))
            {
               $bool = 1; # 1 = Ja
               print  "OTA Dateien vorhanden" . $bool . " OTA-Dateien gefunden!";
            print  $datei . " OTA-Dateien im Verzeichnis  " . $dir . "  vorhanden!" ;
             }
           
         }
           if ($bool == 1) # 1 = Ja
             {                          
                print ""Es besteht in dem Verzeichnis mind. eine aktuelle OTA-Dateien!";                              
             }
           else      
             {                  
                print "Es besteht in dem Verzeichnis" . $dir . "keine aktuelle Backupdatei!";                
                $DateiCheck = 0;
             }
           ## Hier wird nach Durchlauf der Kontrolle ein Statment abgegeben wenn keine aktuellen Dateien vorhanden sind!
           unless($DateiCheck)
             {
                print "OTA-Dateiverzeichnis ist unvollständig !! Bitte prüfen!!!";
             }  
       return $DateiCheck  # Hier wird der ermittelte Rückgabewert aus der Subroutine übergeben!  
       
    } # End of: sub runOtaCheck    
# close VH


# ++++++++++++++++SubRoutinen++++++++++++++++++++++++++++

# Subroutine1 BackupCheck-Zeitstempel

# Hier wird geprüft ob aktuelle Datei vorliegt oder nicht
# return:
#  0 = Die überprüfte Datei ist nicht aktuell genug
#  1 = Die überprüfte Datei ist aktuell genug
 sub existsGlobalCheck
  {
    my ($file,$max_age) = @_;
    my $tmpValue = 0;
    #print LogDatei $tm ;
    my $age = (time - (stat($file))[10]) / (60 * 60 * 24);
    if ($age < $max_age)
      {    
        $tmpValue = 1;
        &printLogEntry ("INFO","Aktuelle Dateien vorhanden!");
        &printLogEntry ("INFO","file  stat($file)");
      }
    else
      {  
        $tmpValue = 0;    
      }  
    return $tmpValue;
  }