如何檢查目錄中是否存在擴展名爲.txt的文件？

Question

我想知道如何檢查一個目錄是否有擴展名爲.txt的文件。

請指教如何做。

Answer 1

只需用水珠：

if (<*.txt>) { ... } 

Answer 2

#! /usr/bin/perl 

my $dir = '.'; # current dir 

opendir(DIRHANDLE, $dir) || die "Couldn't open directory $dir: $!\n"; 
my @txt = grep { /\.txt$/ && -f "$dir/$_" } readdir DIRHANDLE; 
closedir DIRHANDLE; 

print ".txt files found" if (scalar(@txt)); 

作爲獎勵，發現所有.txt文件都在陣列@txt。

Answer 3

請記住，*.txt實際上可能是一個目錄。如果是文件，你是後，grep的glob：

if (grep -f, glob '*.txt') { ... }