sub DirCheck{ my $_dir = $_[0]; print "Directory: $_dir\n"; opendir (DIR, "$_dir") or die "Directory $_dir failed to open: $!" +; my @_dirStat = stat DIR; closedir (DIR); print "Meow\n"; print "DirStat: " . @_dirStat . "\n"; foreach $i (@_dirStat){ print "Item: $i\n"; } #my $_time = ctime($_dirStat[9]); #print "Last Modified Time for $_dir: $_time\n"; }
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |