Help for this page

Select Code to Download


  1. or download this
    find({
  wanted     => \&foo,
  preprocess => sub { grep !/^d/i, @_ },
}, '/somedir');
  2. or download this
    use File::Find::Rule;

...
  exec => sub { $seen = 0 if /^d/i; $seen },
  in   => '/somedir'
);
  3. or download this
    my @files;
my $rule = rule(file => start => '/somedir');
...
  last if $file =~ /^d/i;
  push @files => $file;
}