[Pdx-pm] recursive IO::Dir

[Eric Wilhelm]

# from Tom Keller
# on Thursday 18 February 2010 11:04:

>I need to be able to process files within a directory tree.

This will give you all of the files and directories under $topdir:

  my @paths = File::Fu->dir($topdir)->find(sub{1});

If your matcher sub returns true, the file is returned.  So for only the 
files:

  my @files = File::Fu->dir($topdir)->find(sub{$_->is_file});

The filenames returned are File::Fu::File objects relative to wherever 
$topdir is relative to (i.e. absolute if $topdir is absolute.)

If you want an iterator instead of one big list, you can use the 
finder() method.

  my $iter = File::Fu->dir($topdir)->finder(sub{1});

  while(defined(my $path = $iter->())) {
    $path or next;
    do_something_with($path);
  }

http://search.cpan.org/~ewilhelm/File-Fu-v0.0.6/lib/File/Fu/Dir.pm#finder

There is currently some better documentation for find(), finder(), and 
the knob in my svn trunk:

  http://svn.scratchcomputing.com/File-Fu/trunk/lib/File/Fu/Dir.pm

--Eric
-- 
Issues of control, repair, improvement, cost, or just plain
understandability all come down strongly in favor of open source
solutions to complex problems of any sort.
--Robert G. Brown
---------------------------------------------------
    http://scratchcomputing.com
---------------------------------------------------