in reply to Re: File::Find seems grossly inefficient for performing simple file tasks
in thread File::Find seems grossly inefficient for performing simple file tasks
Greetings RichardK, and thank you for your reply.
Yes. This is exactly the sort of return I had anticipated (as you provided).
With the exceprion of:
As to find(1); -cmin refers to:
As the system' find provides minutes. While I'm sure it must be possible to feed the string some math to make it more granular, I'm not clever enough to figure out how. :(
Thank you again, for taking the time to respond.
Yes. This is exactly the sort of return I had anticipated (as you provided).
With the exceprion of:
which should have read:file->name('*.iso')
as ./iso/ was a reference I used to a directory.file->name('*.xz')
As to find(1); -cmin refers to:
referring to *BSD UNIX' version of FIND(1).-cmin n True if the difference between the time of last change of file status information and the time find was started, rounded up to the next full minute, is n minutes.
Which is actually the most important part of my reason for trying this;
I need to clobber (perldoc -f unlink) symlinks (perldoc -f symlink) older than 11 minutes. Unfortunately, Perls find2perl only provides:
NOTE: (measured in days, see below), which is different than the find the system provides.-atime N True if last-access time of file matches N (measured in days) (see bel +ow). -ctime N True if last-changed time of file's inode matches N (measured in days, + see below). -mtime N True if last-modified time of file matches N (measured in days, see be +low). -newer FILE True if last-modified time of file matches N. # # # See below: # # # 1. * N is prefixed with a +: match values greater than N 2. * N is prefixed with a -: match values less than N 3. * N is not prefixed with either + or -: match only values equal t +o N
As the system' find provides minutes. While I'm sure it must be possible to feed the string some math to make it more granular, I'm not clever enough to figure out how. :(
Thank you again, for taking the time to respond.
--chris
#!/usr/bin/perl -Tw use perl::always; my $perl_version = "5.12.4"; print $perl_version;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^3: File::Find seems grossly inefficient for performing simple file tasks
by RichardK (Parson) on Apr 26, 2013 at 15:19 UTC | |
by taint (Chaplain) on Apr 26, 2013 at 20:47 UTC | |
by RichardK (Parson) on Apr 28, 2013 at 13:21 UTC | |
by Anonymous Monk on May 29, 2013 at 15:42 UTC |
In Section
Seekers of Perl Wisdom