कमांड लाइन प्रिंट फ़ाइल नाम आउटपुट फ़ाइल

Question

यह लिनक्स में आसान लगता है, लेकिन मैं एक निर्देशिका के भीतर * .pdf फ़ाइलों के नाम और इसकी उपनिर्देशिकाओं को आउटपुट फ़ाइल में प्रिंट करने की कोशिश कर रहा हूं। मेरे पास मेरी विंडोज़ मशीन पर पर्ल स्थापित है। ऐसा करने का एक आसान तरीका क्या है?

धन्यवाद, जेक

Answer 1

ज्यादा लिनक्स की तुलना में अलग।

dir *.pdf > fileyouwant.txt 

आप केवल फ़ाइल नाम चाहते हैं, आपको लगता है कि

dir/b *.pdf > fileyouwant.txt 

साथ आप भी उपनिर्देशिका चाहते हैं,

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

कर सकते हैं आपको लगता है कि निर्देशिका के साथ शुरू करने के लिए नहीं कर रहे हैं

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

Answer 2

पर्ल का उपयोग करके आप लगभग निश्चित रूप से File::Find कोर मॉड्यूल का उपयोग करना चाहिए।

Answer 3

File::Glob मॉड्यूल देखें।

विशेष रूप से:

#!/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 अक्सर 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"; 
} 

या बस

use File::Find::Rule; 

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