Code: Select all
$dir = '/home/blah/blah';
opendir (DIR, $dir) || die "Can't opendir $dir: $!";
@ondisk = sort readdir (DIR);
closedir (DIR);
foreach $file (@ondisk) {
$date = (stat "$dir/$file")[10];
if ($date [is after 01/10/03]) {
print "$file";
}
}