银子 ’s 博客

#!/usr/bin/perl
 
#---------------------------------------------------------
use strict;
my $dir = "dirname/";
opendir DH, $dir or die "cannot chdir to $dir : $!";
for my $file (readdir DH)
{
    ($file eq '.') and next;
    ($file eq '..') and next;
    if (time() - (stat($dir.$file))[9] > (60*60))
    {
        unlink $dir.$file;
    }
    print $dir.$file."\n";
}
closedir DH;