# 3 Block hier werden die Transactionlog-Dateien geprüft
  sub runSqlTrnCheck
    {
       #Überprüfung LogDatei-Verzeichnis
     
         
      
      # Flag, ob die Gesamtprüfung positiv ist.
      # 0 = nein, d.h. In mindestens einem Fall war keine aktuelle Backup-Datei vorhanden.
      # 1 = ja, d.h. es ware stets eine aktuelle Backup-Datei vorhanden.
           my $runSQLTrnCheck = "Ja";
           
           print LogDatei  '*' x 130, "\n\n";
           print LogDatei  '#' x 130, "\n";
           print LogDatei  '#' x 130, "\n\n";
           print LogDatei " TRN LOG-Verzeichnischeck beginnt: $tm \n\n\n";
           print LogDatei  '#' x 130, "\n\n";
           
      
           my $dir1 = '//sv040555.zitd.global.commerzbank.com//D$//Backup//MSSQL//TRN//ztb_treasurycockpit_db';
           opendir(DIR,$dir1) or die $!; # Verzeichnis "öffnen"
      
      
           my @verzeichnisse1 = grep{-M $dir1 .'/'.$_}readdir(DIR);
           my $bool = 0; #0 = Nein
           for my $file(@verzeichnisse1)
         
         {       
             if(existsGlobalCheck($dir1.'/'.$file,1)) 
             {    
                $bool = 1;  #1 = Ja
                print LogDatei '-' x 130, "\n";
                print LogDatei "\n ----------------------------LOG Dateien vorhanden----------------------------- \n" . $bool . " LOG-Dateien gefunden!\n";
                 print LogDatei $file . "\n \n" . @verzeichnisse1 . " LOG-Dateien (TRN) im Verzeichnis " . $dir1 . " vorhanden!";
                 print LogDatei '-' x 130, "\n";
             }
           else
           {
              #print LogDatei "--------------------------------------------------------------------------\n";
              #print LogDatei " Aktuelle Datei ist nicht vorhanden!\n";
              #print LogDatei "--------------------------------------------------------------------------\n"; 
           }          
         }
           if ($bool == 1) # 1= Ja 
           {
               print LogDatei '-' x 130, "\n";
               print LogDatei "INFO : Es besteht in dem Verzeichnis mind. eine aktuelle LOG-Dateien!\n";
               print LogDatei '-' x 130, "\n";
           }
         else       
         {
             print LogDatei '-' x 130, "\n";
             print LogDatei "ERROR: Es besteht in dem Verzeichnis keine aktuelle LOG-Dateien!\n";
             print LogDatei '-' x 130, "\n";
          }
             
             unless($runSQLTrnCheck)
          {
             print LogDatei '-' x 130, "\n";
             print LogDatei "ERROR: LOG-Dateien unvollständig !!!!!\n";
             print LogDatei '-' x 130, "\n";
             print LogDatei '#' x 130, "\n";
             print LogDatei '#' x 130, "\n\n\n"; 
          }
    }# End of: sub runSqlTrnCheck   
  
#***************************   
#Ende der Subroutinen   
#***************************   

use File::Find;

find(\&und_was_nu,'~/','/usr/bin');

sub und_was_nu {
    print "Datei: $File::Find::name\n"
    print "\tVerzeichnis: $File::Find::dir\n"
    print "\tDateiname: $_\n";

    return if -d $File::Find::name;#skip directories
    return unless $_ =~ m/\.mp3$/i;#only mp3 Files
    #Some Stuff
    
}