( mrceeka | 2017. 12. 05., k – 23:52 )

Akkor már azt a ketyegő bombát sem tudod hatástalanítani, hogy a scripted könyvtárakat is visszaad és csak az unlink kegyessége menti meg azokat a törléstől. Viszont, ha valaki máshogy töröl, akkor robbanhat... :D
Finomítási lehetőség:

use File::stat;
use Fcntl ':mode';

my $kvt = ".";

opendir( my $dh, $kvt ) || die "Can't opendir $kvt $!";
while ( readdir $dh ) {
    my $stat = stat($_);
    my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) =
      localtime $stat->mtime;

    if ( $stat->mode & S_IFREG && $hour < 6 ) {
        printf "%s\t%02d:%02d\n", $_, $hour, $min;
       # unlink $_;
    }

}

Üdv,
Marci