Làm cách nào để có danh sách tất cả các tệp có phần mở rộng nhất định từ một thư mục cụ thể?

Question

Tôi đang sử dụng mã này để có được một danh sách tất cả các tập tin trong một thư mục cụ thể:

opendir DIR, $dir or die "cannot open dir $dir: $!"; 
my @files= readdir DIR; 
closedir DIR; 

Làm thế nào tôi có thể sửa đổi mã này hoặc thêm một cái gì đó với nó để nó chỉ trông cho các tập tin văn bản và chỉ tải mảng với tiền tố của tên tập tin?

nội dung thư mục Ví dụ:

. 
.. 
923847.txt 
98398523.txt 
198.txt 
deisi.jpg 
oisoifs.gif 
lksdjl.exe 

Ví dụ nội dung mảng:

files[0]=923847 
files[1]=98398523 
files[2]=198 

Answer 1

my @files = glob "$dir/*.txt"; 
for (0..$#files){ 
    $files[$_] =~ s/\.txt$//; 
} 

Answer 2

nó là đủ để thay đổi một dòng:

my @files= map{s/\.[^.]+$//;$_}grep {/\.txt$/} readdir DIR; 

Answer 3

Để có được chỉ là". txt "tập tin, bạn có thể sử dụng một hoạt động thử nghiệm tập tin ator (-f: tập tin thông thường) và một regex.

my @files = grep { -f && /\.txt$/ } readdir $dir; 

Nếu không, bạn có thể tìm kiếm tập tin văn bản chỉ, sử dụng (khai thác ascii-văn bản kiểm tra tập tin) -T perl của

my @files = grep { -T } readdir $dir; 

Answer 4

Nếu bạn có thể sử dụng tính năng mới của Perl 5.10, đây là cách Tôi sẽ viết nó.

use strict; 
use warnings; 
use 5.10.1; 
use autodie; # don't need to check the output of opendir now 

my $dir = "."; 

{ 
    opendir my($dirhandle), $dir; 
    for(readdir $dirhandle){ # sets $_ 
    when(-d $_){ next } # skip directories 
    when(/^[.]/){ next } # skip dot-files 

    when(/(.+)[.]txt$/){ say "text file: ", $1 } 
    default{ 
     say "other file: ", $_; 
    } 
    } 
    # $dirhandle is automatically closed here 
} 

Hoặc nếu bạn có thư mục rất lớn, bạn có thể sử dụng vòng lặp while.

{ 
    opendir my($dirhandle), $dir; 
    while(my $elem = readdir $dirhandle){ 
    given($elem){ # sets $_ 
     when(-d $_){ next } # skip directories 
     when(/^[.]/){ next } # skip dot-files 

     when(/(.+)[.]txt$/){ say "text file: ", $1 } 
     default{ 
     say "other file: ", $_; 
     } 
    } 
    } 
} 

Answer 5

Chỉ cần sử dụng này:

my @files = map {-f && s{\.txt\z}{} ? $_ :()} readdir DIR; 

Answer 6

Đây là cách đơn giản nhất tôi đã tìm thấy (như trong con người có thể đọc được) bằng cách sử dụng chức năng glob:

# Store only TXT-files in the @files array using glob 
my @files = grep (-f ,<*.txt>); 
# Write them out 
foreach $file (@files) { 
    print "$file\n"; 
} 

Ngoài ra các "-f "đảm bảo rằng chỉ các tệp thực tế (và không phải thư mục) được lưu trữ trong mảng.