Re: delete old files (windoze)

[xorl]

This is how I do it.

use File::Find;

find(\&wanted, $dir);

sub wanted {
    unlink $_ if -M $_ > $days;
}

$dir is the directory you want to delete files from
$days is how old the files are. i.e. if you wanted to delete all files older than two weeks set days to 14.