use File::Copy; $dir = "/perl/bin"; sub month { foreach (glob "$_[0]/*") { -d && recursedirs($_) unless -l; if (-f ) { if ((-M) > 01/01/02 && (-M) < 01/31/02 ) { my $file = $_; print "$_\n"; } } } } month("$dir")
In reply to Listing files by oaklander
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |