How can I use File::Find in Perl?

Question

I'm a bit confused from File::Find documentation... What is the equivalent to $ find my_dir -maxdepth 2 -name "*.txt"?

Answer 1

Personally, I prefer File::Find::Rule as this doesn't need you to create callback routines.

use strict; use Data::Dumper; use File::Find::Rule;  my $dir = shift; my $level = shift // 2;  my @files = File::Find::Rule->file()                             ->name("*.txt")                             ->maxdepth($level)                             ->in($dir);  print Dumper(\@files); 

Or alternatively create an iterator:

my $ffr_obj = File::Find::Rule->file()                               ->name("*.txt")                               ->maxdepth($level)                               ->start($dir);  while (my $file = $ffr_obj->match()) {     print "$file\n" }