in reply to Deleting old files from directory
Does that even work? "perldoc -f -X" gives the example:
while (<>) { chomp; next unless -f $_; # ignore specials #... }
From which I gather the filetests don't take a default "$_". But once you've tested "-f $_", you can re-use the data structure from that query for the -M test by specifying a single underscore: "-M _". Personally I would do it as in the example, with a while, rather than loading all the filenames ... potentially a large number. I would also use a variable rather than "$_", because when you nest loops or call routines, the value of $_ might be altered.
As Occam said: Entia non sunt multiplicanda praeter necessitatem.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Deleting old files from directory
by jwkrahn (Abbot) on Sep 27, 2011 at 20:13 UTC | |
Re^2: Deleting old files from directory
by Anonymous Monk on Sep 27, 2011 at 19:52 UTC |
In Section
Seekers of Perl Wisdom