Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Re: search folder and delete certain files with perl

by jwkrahn (Monsignor)
on Dec 07, 2011 at 22:23 UTC ( #942338=note: print w/replies, xml ) Need Help??

in reply to search folder and delete certain files with perl

#!/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: $!"; } }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://942338]
[james28909]: everything past the first two things you piked from my posts are irrelevant to me and my beliefs. they are side effects.
[james28909]: two or three. if it has to do with how humans are handling said situations, then that is after they were able to evolve into those problems. agnostic means only believe with evidence. i took that from a tyson video
[james28909]: and it seems that racism suggest that there is indeed a better race, but that is for evolution to decide
[1nickt]: "right now, humans are smarter than in any of those times": define "smart"
[erix]: ah, now you're appraoch downvote-territory ;)

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (11)
As of 2017-12-15 14:57 GMT
Find Nodes?
    Voting Booth?
    What programming language do you hate the most?

    Results (433 votes). Check out past polls.