search folder and delete certain files with perl

ravvles has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: search folder and delete certain files with perl by CountZero (Bishop) on Dec 07, 2011 at 19:42 UTC
One of the major benefits of Perl is CPAN, which allows us to not re-invent the wheel. So have a look at File::Find::Rule. It will do all you need. CountZero A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James	[reply]
Re: search folder and delete certain files with perl by Eliya (Vicar) on Dec 07, 2011 at 21:52 UTC
Maybe just use the system tool? `$ find /var/opt/xim/syslogs -maxdepth 1 -type f -name "Syslogd*" -mtim +e +0.5 -delete` [download] (Run without `-delete` first, to make sure you picked the right files!!)	[reply] [d/l] [select]
Re^2: search folder and delete certain files with perl by locked_user sundialsvc4 (Abbot) on Dec 08, 2011 at 22:23 UTC
Yup... what came to my mind right away was `find` and maybe also `xargs`. (Both in a Unix/Linux environment.)
Re: search folder and delete certain files with perl by jwkrahn (Abbot) on Dec 07, 2011 at 22:23 UTC
`#!/usr/bin/perl use warnings; use strict; for my $file ( </var/opt/xim/syslogs/Syslogd*> ) { if ( -M $file > .5 ) { unlink $file or warn "Cannot delete '$file' because: $!"; } }` [download]	[reply] [d/l]
Re: search folder and delete certain files with perl by TJPride (Pilgrim) on Dec 07, 2011 at 21:01 UTC
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"; [download]	[reply] [d/l]
Re^2: search folder and delete certain files with perl by CountZero (Bishop) on Dec 07, 2011 at 21:26 UTC
Because it is so much more compact: `use Modern::Perl; use File::Find::Rule; my $directory = '/var/opt/xim/syslogs/'; my $age = time - 126060; unlink for File::Find::Rule->file() ->name('Syslogd*') ->mtime("<$age") ->maxdepth( 1 ) ->in($directory);` [download] CountZero A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James	[reply] [d/l]
Re^3: search folder and delete certain files with perl by TJPride (Pilgrim) on Dec 07, 2011 at 21:33 UTC
Maybe slightly, I could have compacted my example quite a bit. But I personally prefer doing at least simple things on my own rather than relying on a black box that may or may not work as intended. Maybe this is an extremely reliable module that everyone uses, but how do I know?	[reply]
Re^4: search folder and delete certain files with perl by CountZero (Bishop) on Dec 07, 2011 at 21:42 UTC
Re^5: search folder and delete certain files with perl by TJPride (Pilgrim) on Dec 07, 2011 at 22:08 UTC
Re^4: search folder and delete certain files with perl by Your Mother (Archbishop) on Dec 08, 2011 at 14:11 UTC