#!/usr/bin/perl
open(FILE,'>out.txt') or die $!;
if($one eq "option1"){
opendir(DIR,"/home/folders/") or die "can not open directory";
foreach my $line (sort grep !/^\./, readdir DIR){
print FILE "$line|";
opendir(DIR1,"/home/folders/$line");
foreach my $line1 (sort grep !/^\./, readdir DIR1){
if($line1=~/sorted/ && $line1=~/^\w/){print FILE "Yes|";}
elsif($line1=~/cleaned/ && $line1=~/^\w/){print FILE "Yes|";}
elsif($line1=~/proceed/ && $line1=~/^\w/){print FILE "Yes|";}
}
print FILE "\n";
}
}
close (FILE);
open(FILE1,'out.txt') or die $!;
print "CASENAME  SORTED CLEANED  PROCEED";
while($ln=<FILE1>){
($directory,$subdir1,$subdir2,$subdir3)=split(/\|/,$ln);
print "\n$directory\t";
if($subdir1 ne "Yes"){print "No\t";}else{print "Yes\t";}
if($subdir2 ne "Yes"){print "No\t";}else{print "Yes\t";}
if($subdir3 ne "Yes"){print "No\t";}else{print "Yes\t";}
}
close(FILE1);
unlink("out.txt");