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

Question

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

怎么做到呢？

Answer 1

只需使用 glob ：

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

Answer 2

请记住，*.txt这实际上可能是一个目录。如果它是您所追求的文件，grep则glob：

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

Answer 3

#! /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 中。