Find::File::Iterator is a Perl module for iterator interface for search files.
SYNOPSIS
use File::Find::Iterator;
my $find = File::Find::Iterator->create(dir => ["/home", "/var"],
filter => &isdir);
sub isdir { -d }
while (my $f = $find->next) { print "file : $fn" }
#reread with different filter
$find->filter(&ishtml);
$find->first;
while (my $f = $find->next) { print "file : $fn" }
sub ishtml { /.html?$/ }
# using file for storing state
$find->statefile($statefile);
$find->first;
# this time it could crash
while (my $f = $find->next)
{ print "file : $fn" }
# using imap and igrep
use File::Find::Iterator qw(imap igrep);
my $find = File::Find::Iterator->new(dir => ["/home", "/var"]);
$find = imap { -M } igrep { -d } $find;
Product's homepage
Requirements:
· Perl