in reply to search folder and delete certain files with perl
Why bother with a module when stat is available?
use strict; use warnings; my ($path, $cutoff, $handle, $file, $c); $path = '/var/opt/xim/syslogs/'; $cutoff = time() - 3600*12; ### 12 hours ago $c = 0; ### Fail if you don't have read permimssions opendir ($handle, $path) || die; while ($file = readdir($handle)) { ### File name must start with pattern next if $file !~ /^Syslogd/; ### Check modified time in seconds since epoch next if (stat $file)[9] > $cutoff; ### Error if you don't have write permissions if (unlink "$path$file") { print "$file removed.\n"; $c++; } else { print "$file could not be removed.\n"; } } print "$c total files removed.\n";
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: search folder and delete certain files with perl
by CountZero (Bishop) on Dec 07, 2011 at 21:26 UTC | |
by TJPride (Pilgrim) on Dec 07, 2011 at 21:33 UTC | |
by CountZero (Bishop) on Dec 07, 2011 at 21:42 UTC | |
by TJPride (Pilgrim) on Dec 07, 2011 at 22:08 UTC | |
by Your Mother (Archbishop) on Dec 08, 2011 at 14:11 UTC |
In Section
Seekers of Perl Wisdom