in reply to Re^3: Delete old files
in thread Delete old files

Sure it can still be like that:
...
# get all ttct files from here
my @file_list= glob("old/*.txt");

 for my $files (@file_list) {

    if ($now-(stat $files)[9]  > $age) { # file older than 7 days
     print "$files\n";
    }

 }

[download]

Still doesnt work.

Replies are listed 'Best First'.
Re^5: Delete old files
by roboticus (Chancellor) on Mar 18, 2014 at 11:42 UTC

    Perhaps if you read the linked documentation you could see what's wrong.

    ...roboticus

    When your only tool is a hammer, all problems look like your thumb.

[reply]

In Section Seekers of Perl Wisdom