Как проверить наличие более одного файла с заданным расширением файла в perl

Question

Мое требование состоит в том, чтобы узнать, являются ли в каталоге не менее 2 .wav файлов.

В настоящее время я использую grep(/\.wav$/,readdir($dir)), чтобы получить номер файла .wav, а затем проверьте его greater than 1.

Но я действительно не хочу считать все файлы, если они были 1000s.

Кто-нибудь есть лучшее решение для этого ...

Спасибо :)

Answer 1

В скалярном контексте можно перебрать элементы каталога с помощью while(), и немедленно разорвать петлю, когда ваше условие выполнено,

my $count = 0; 
while (defined(my $f = readdir $dir)) { 
    if ($f =~ /\.wav$/ and ++$count >= 2) { 
     print "there are at least two wav files\n"; 
     last; 
    } 
} 

Answer 2

Вы можете использовать glob расширить список файлов в директории с widcards, или лучше bsd_glob из пакета File::Glob:

use File::Glob ':bsd_glob'; 
my @wavfiles = bsd_glob("$your_directory/*.wav"); 
my $count_wavs = @wavfiles; 

Обратите внимание, что количество файлов использует массив в скалярном контексте.

bsd_glob лучше, потому что он правильно обрабатывает пробелы в именах каталогов (среди прочих), предпочитает этот на glob.