如何检查目录中是否存在扩展名为.txt的文件？

Question

我想知道如何检查目录中是否有一个扩展名为.txt的文件。

请告知如何做到。

Answer 1

只需使用glob：

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' ) { ... }