perl - 拡張子が.txtのファイルがディレクトリに存在するかどうかを確認するにはどうすればよいですか？

Question

ディレクトリに拡張子が付いたファイルがあるかどうかを確認する方法を知りたいです.txt。

どのようにそれを行うことができますか？

Answer 1

単にグロブを使用する：

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 にあります。