File::Find::Rule::Age - rule to match on file age
use File::Find::Rule::Age; my @old_files = find( file => age => [ older => '1M' ], in => '.' ); my @today = find( file => age => [ newer => '1D' ], in => '.' );
File::Find::Rule::Age makes it easy to search for files based on their age. DateTime and File::stat are used to do the behind the scenes work, with File::Find::Rule doing the Heavy Lifting.
By 'age' I mean 'time elapsed since mtime' (the last time the file was modified).
$criterion must be one of "older" or "newer". $age must match /^(\d+)([DWMYhms])$/ where D, W, M, Y, h, m and s are "day(s)", "week(s)", "month(s)", "year(s)", "hour(s)", "minute(s)" and "second(s)", respectively - I bet you weren't expecting that.
<pedro.figueiredo at sns.bskyb.com>
Please report any bugs or feature requests to
bug-find-find-rule-age at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Find-Find-Rule-Age. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
You can find documentation for this module with the perldoc command.
You can also look for information at:
Richard Clamp, the author of File::Find::Rule, for putting up with me.
Copyright (C) 2008 Sky Network Services. All Rights Reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.