How do I print all .pdf files names to an output file with command line?
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/');
Not much different than Linux.
dir *.pdf > fileyouwant.txt
If you only want the filenames, you can do that with
dir/b *.pdf > fileyouwant.txt
If you also want subdirs,
dir/s/b *.pdf > fileyouwant.txt
If you aren't in that directory to start with
dir/s/b C:\Path\*.pdf > fileyouwant.txt
use strict;
use warnings;
use File::Find;
my $dirname = shift or die "Usage: $0 dirname >outputfile";
File::Find::find( sub {
print $File::Find::name, "\n" if $File::Find::name =~ /\.pdf\z/
}, $dirname );