komut satırı yazdırma dosya adlarını çıktı dosyasına yazdırma

Question

Bu, Linux'ta kolay görünüyor, ancak bir dizinde ve alt dizinlerinde bir .pdf dosyasının adlarını çıktı dosyasına yazdırmaya çalışıyorum. Windows makinemde perl var. Bunu yapmanın basit bir yolu nedir?

sayesinde Jake Linux daha

Answer 1

pek farklı değil. Yalnızca dosya istiyorsanız başlamak bu dizinde değilseniz

dir *.pdf > fileyouwant.txt 

, sen

dir/b *.pdf > fileyouwant.txt 

ile de subdirs istiyorsanız o

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

yapabilirsiniz

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

Answer 2

Perl'i kullanarak, neredeyse kesinlikle File::Find çekirdek modülünü kullanmalıdır.

Answer 3

File::Glob modülüne bakın. Özellikle

:

#!/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::RuleFile::Find daha kullanmak çoğu zaman daha güzel.

use File::Find::Rule; 

my $rule = File::Find::Rule->file()->name('*.pdf')->start('C:/Path/'); 
while (defined (my $pdf = $rule->match)) { 
    print "$pdf\n"; 
} 

veya basitçe

use File::Find::Rule; 

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