如何检查目录中是否存在扩展名为.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') { ... }