This seems easy in Linux, but I\'m trying to print the names of *.pdf
files within a directory and its subdirectories to an output file. I have Perl installed on my
File::Find::Rule is often nicer to use than File::Find.
use File::Find::Rule;
my $rule = File::Find::Rule->file()->name('*.pdf')->start('C:/Path/');
while (defined (my $pdf = $rule->match)) {
print "$pdf\n";
}
or simply
use File::Find::Rule;
print "$_\n" for File::Find::Rule->file()->name('*.pdf')->in('C:/Path/');