opendir(DIR,$dlist)|| die "Can't open $dlist\n";
my @content=readdir(DIR);
foreach my $all_dir(@content){
chomp($all_dir);
$all_dir=~s/\n//g;
if($all_dir=~m/\w+/g){
my $mod = (stat "$dlist/$all_dir")[9];
print "";
print "$all_dir";
print " as: ";
print scalar localtime $mod;
if($hide eq "1"){
print " Hide Zip ";
}else{
print " Show Zip ";
}
if($filestosee){
opendir(ZDIR, "$dlist$all_dir") or die $!;
while (my $zip_file = readdir(ZDIR)) {
#ignore files beginning with a period
next if ($zip_file =~ m/^\./);
# Get zip files only
#next unless (-f "$dlist$all_dir");
# RX to find files ending in .zip
next unless ($zip_file =~ m/\.zip$/);
print " $zip_file \n";
}
closedir(ZDIR);
}
}
}
closedir(DIR) or die "Can't close DIR";