Shell Programming and Scripting

#!/bin/perl 
$filename = 'D:/Exploit/file_test/path_files.txt'; 

open (FILE, "$filename") or die "couldn't open the file!"; 
open (NOEMPTYFILE, '>D:/Exploit/file_test/data1.txt'); #open the temp file1 in write mode 
open (EMPTYFILE, '>D:/Exploit/file_test/data2.txt'); #open the temp file2 in write mode 

while (<FILE>) 
{ 
      chomp; 
      ($path1, $schedname) = split("\t");   
      print $path1;                                # To print the directory name in screen
        opendir DIR, $path1 or die "cannot open dir $path1:$!"; 
        readdir DIR; # reads . 
        readdir DIR; # reads .. 
           if (readdir DIR)        #If the directory is non empty then only it will go inside

            {       
                   print NOEMPTYFILE "$path1\n"  #Write the name of non empty directory in data1

                @files = glob('$path1*.txt');  # To get the text files
                $a = 0; 
                foreach $file (@files) 
               { 
                       $a++; 
                       print NOEMPTYFILE  "$file\n";   #Write the file names

               } 
               print "Total in directory $path1 is: $a\n";   # To print the output in screen

   if ($a > 2) 
  { 

  print NOEMPTYFILE  " Number of text files present in the $path1 directory is: $a , Kindly check $schedname \n.";  #When more than two text files are present

    } 
   else 
   { 
    print NOEMPTYFILE  " Number of text files present in the $path1 directory is: $a , Kindly check $schedname \n.";  #When text files are less than 2
   }

           } # End of if

else                              #If the directory does not contain the third file it will come to else loop
{ 
print EMPTYFILE  " $path1 directory is empty, Kindly check $schedname \n.";  # Write the empty directory name in data 2
}             # Reading is complete for the current directory

closedir DIR;  # Closes the current directory and opens another directory

}   # End of  While

close (NOEMPTYFILE); 
close (EMPTYFILE);