如何從一個與文件類型匹配的特定目錄過濾最近發生的文件名？

Question

我寫了這個來檢查是否有在某個目錄下創建的文件，並給我最新的文件，我該如何修改我的正則表達式來只拾取某個文件類型的最新文件*（只說.txt）

my $DIR="C:\\Dropbox\\AnalysesLogs"; 
opendir(my $DH, $DIR) or die "Error opening $DIR: $!"; 
my @files = map { [ stat "$DIR/$_", $_ ] } grep(! /^\.\.?$/, readdir($DH)); 
closedir($DH); 

sub rev_by_date { $b->[9] <=> $a->[9] } 
my @sorted_files = sort rev_by_date @files; 
my @newest = @{$sorted_files[0]}; 
my $newestfile = pop(@newest); 

目前$ newestfile將是最新的文件，但它是一個非優先類型，我只希望看到最新的.txt類型。

謝謝！

Answer 1

使用grep再次：

my @files = map { [ stat "$DIR/$_", $_ ] } grep { /\.txt$/ } grep(! /^\.\.?$/, readdir($DH)); 

這裏假設你有一個.txt後綴沒有子目錄。

這可以進一步簡化，因爲它會過濾掉2點目錄：

my @files = map { [ stat "$DIR/$_", $_ ] } grep { /\.txt$/ } readdir($DH); 

Answer 2

你也可以做，而不是READDIR：

my @files = map { [ stat $_, $_ ] } <$DIR/*.txt>; 

見glob運營商。