Command Line Druck Dateinamen zur Ausgabedatei

Question

Dies scheint einfach in Linux, aber ich versuche, die Namen von * .pdf-Dateien innerhalb eines Verzeichnisses und seiner Unterverzeichnisse zu einer Ausgabedatei zu drucken. Ich habe Perl auf meiner Windows-Maschine installiert. Was ist eine einfache Möglichkeit, dies zu tun?

Danke, Jake

Answer 1

Nicht viel anders als Linux.

dir *.pdf > fileyouwant.txt 

Wenn Sie nur die Dateinamen möchten, können Sie das tun, mit

dir/b *.pdf > fileyouwant.txt 

Wenn Sie auch subdirs wollen,

dir/s/b *.pdf > fileyouwant.txt 

Wenn Sie nicht in diesem Verzeichnis sind, mit zu beginnen

dir/s/b C:\Path\*.pdf > fileyouwant.txt 

Answer 2

Mit Perl, Sie sollte fast sicher das File::Find Kernmodul verwenden.

Answer 3

Siehe das Modul File::Glob.

Im Einzelnen:

#!/usr/bin/perl 
use File::Glob ':glob'; # Override glob built-in.       
print join("\n",glob("*.pdf")); 

Answer 4

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); 

Answer 5

File::Find::Rule ist oft schöner zu benutzen als 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"; 
} 

oder einfach

use File::Find::Rule; 

print "$_\n" for File::Find::Rule->file()->name('*.pdf')->in('C:/Path/');