troubleshooting Question

Deleting files older than ... seconds

Avatar of mypatek
mypatek asked on
Perl
1 Comment1 Solution1246 ViewsLast Modified:
Does anybody know the flag for seconds? Files should be purged based on age in secs

-M stands for days

#!/usr/bin/perl -w

use strict;
use File::Find;

my @files = ();
my @paths = ();
my $dir = '/home/mydir';

find(\&_filewanted, $dir);

for my $file ( @files ) {
 if (unlink $file) {
 print "removing $file\n";
 } else {
 print "could not unlink $file\n";
 }
}

sub _filewanted {
 if ( ((-M $_) > 1) && -f $_  ) { # files, not directories
 push @files, $File::Find::name;
 }
}
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 1 Comment.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 1 Comment.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros