On Wed, Feb 20, 2002 at 04:32:40PM -0500, [EMAIL PROTECTED] wrote:
> can one specicify a time stamp when using FileFind?
sure, just do the timerange comparison within the wanted() subroutine:
--------------------
#!/usr/bin/perl
use File::Find;
use File::stat;
sub isnew {
# tells if the given filename has been modified lately
my $st = stat(shift);
return $st->mtime > time()-60*60*24; # 24h ago
}
sub wanted
{
isnew($_) or return; # drop processing for older files
print "$File::Find::name\n";
}
find( \&wanted, "/tmp/");
--------------------
--
Johannes Franken
Professional unix/network development
mailto:[EMAIL PROTECTED]
http://www.jfranken.de/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
