Re: Re: Recursive Subdirectories

Recursively searching directories is much easier than this.

Even easier than File::Find is File::Find::Rule

use File::Find::Rule;

my @files = find(
  file =>
  exec => sub { -A  < (time - (3600 * 24 * 10) },
  in   => '.',
);
[download]

See. the File::Find::Rule docs for more info on this fantabulous module.
HTH

_________ broquaint

Comment on Re: Re: Recursive Subdirectories Download Code

Replies are listed 'Best First'.
Re: Re: Re: Recursive Subdirectories by runrig (Abbot) on Apr 16, 2003 at 18:03 UTC
`exec => sub { -A < (time - (3600 * 24 * 10) },` [download] I was going to write the following: The module lets you write that more convieniently as: `accessed => "<10",` [download] But on testing I found there is a subtle difference between the '-A' operator and the return value of atime from stat() (which FFR's 'atime' method uses) (update: and 'accessed' is just a binary method, it's 'atime' that uses stat) that makes both of our answers wrong. '-A' returns the length of time in days since the last access, and stat's atime is the last access time in epoch seconds. So the correct answer would be a combination of our answers: `my $time = time - (3600 * 24 * 10); ... atime => ">=$time", # Or it would be about as easy to just say exec => sub { -A < 10 },` [download] Update: I was initially trying to use 'accessed' incorrectly, then I later found I should have been using 'atime'. Updated code. In FFR, 'accessed' is a binary/boolean method (which makes it practically useless) and doesn't take arguments. All '-X' operators are mapped to boolean methods in FFR, it would be nice to change this.	[reply] [d/l] [select]
Re^4: Recursive Subdirectories ($^T) by tye (Sage) on Apr 16, 2003 at 18:17 UTC
-A is based on $^T not time(). So you want `my $time = $^T - 102460*60;` [download] no? (And yes, for fast-running scripts, the difference is not important.) (: - tye	[reply] [d/l]