( zeller | 2017. 12. 05., k – 22:28 )

Perl-ben egy szösszenet:

use File::stat;

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 ( $hour > 18 ) {
        printf "%s\t%02d:%02d\n", $_, $hour, $min;
       # unlink $_;
    }

}

Jelen állapotban kiírja az aktuális könyvtárban azon fájloknak a nevét és a mtime-ból az óra:perc értéket, amiknél a készítés idejében az óra kisebb, mint 6. Ha az unlink-es sor elől kiveszed a "#"-et, akkor törli is az adott fájlt.