As merlyn notes, you can't get a files' creation date on Unix (and possibly other platforms), but often using a file's last modification date instead will work in many cases.
If that's an acceptable alternative, then you can do something like...
use POSIX qw/ strftime /; sub mdate { my($file,$format) = @_; # Unless otherwise specified, use # MM/DD/YYYY as date format. $format ||= '%m/%d/%Y'; my $date = ( stat($file) )[9]; return strftime( $format => localtime $date ); } my $dir = '/path/to/files'; my $date = '04/11/2002'; chdir $dir or die "Cannot chdir($dir): $!\n"; opendir DIR, '.' or die "Cannot opendir($dir): $!\n"; foreach my $file ( readdir DIR ) { print $file, "\n" if mdate($file) eq $date; }
--k.
In reply to Re: File Creation Dates
by Kanji
in thread File Creation Dates
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |