| File-Locate-Iterator documentation | Contained in the File-Locate-Iterator distribution. |
Iterator::Simple::Locate -- read "locate" database with Iterator::Simple
use Iterator::Simple::Locate;
my $it = Iterator::Simple::Locate->new;
while (defined (my $entry = $it->())) {
print $entry,"\n";
}
Iterator::Simple::Locate reads a "locate" database file in iterator
style. It's implemented as a front-end to File::Locate::Iterator,
allowing the various Iterator::Simple features to be used to filter or
crunch entries from the locate database.
See examples/iterator-simple.pl in the File-Locate-Iterator sources for a simple complete program.
$it = Iterator::Simple::Locate->new (key=>value,...)Create and return a new Iterator::Simple object. Optional key/value
pairs as passed to File::Locate::Iterator->new.
$entry = $it->()Return the next entry from the database, or return undef when no more
entries.
http://user42.tuxfamily.org/file-locate-iterator/index.html
Copyright 2009, 2010, 2011 Kevin Ryde
File-Locate-Iterator is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version.
File-Locate-Iterator is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with File-Locate-Iterator. If not, see http://www.gnu.org/licenses/
| File-Locate-Iterator documentation | Contained in the File-Locate-Iterator distribution. |
# Copyright 2009, 2010, 2011 Kevin Ryde. # # This file is part of File-Locate-Iterator. # # File-Locate-Iterator is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as published # by the Free Software Foundation; either version 3, or (at your option) # any later version. # # File-Locate-Iterator is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General # Public License for more details. # # You should have received a copy of the GNU General Public License along # with File-Locate-Iterator; see the file COPYING. Failing that, go to # <http://www.gnu.org/licenses/>. package Iterator::Simple::Locate; use 5.006; use strict; use warnings; use File::Locate::Iterator; use Iterator::Simple; our $VERSION = 20; sub new { my $class = shift; my $it = File::Locate::Iterator->new (@_); return Iterator::Simple::iterator (sub { $it->next }); } 1; __END__