Question

I don’t see the find2perl documentation mentioning anything about support for -mindepth and -maxdepth arguments.

The example below works fine with find:

$ find2perl . -mindepth 2 -maxdepth 2 -name "*txt" -type f
Unrecognized switch: -mindepth

Questions:

• Does find2perl support such functionality?
• If so, how can I specify mindepth and maxdepth?

Answer 1

File::Find::Rule has these options, and it has a command line program findrule.

If you want to do it with File::Find, you can implement maxdepth by checking the depth of the file and setting $File::Find::prune when you’ve gone too deep. mindepth is similar, but you return from your function early. I’m feeling lazy this morning, so I’ll leave the coding to someone else.

UPDATE: Somebody else did the programming, namely File::Find::Rule. Here’s the code they use.

my $maxdepth = 2;
my $mindepth = 2;
my $topdir   = "something/something/something";
sub wanted {
    # figure out the relative path and depth
    my $relpath = $File::Find::name;
    $relpath =~ s{^\Q$topdir\E/?}{};
    my $depth = File::Spec->splitdir($relpath);

    defined $maxdepth && $depth >= $maxdepth
       and $File::Find::prune = 1;

    defined $mindepth && $depth < $mindepth
       and return;

    ...your code goes here...
}

find \&wanted, $topdir;