Как я могу отфильтровать имена файлов по их расширению?

Question

Следующий скрипт хранит все файлы и каталоги в массиве @file_list.

Как фильтровать только файлы с расширением .lt6 и ничем иным?

opendir (CURRDIR, $localdir);
@file_list = grep !/^\.\.?$/, readdir CURRDIR;
print STDOUT "Found Files: @file_list\n";

ура

Answer 1

Попробуйте это:

grep(/\.lt6$/i, readdir(CURRDIR))

Я использовал это много раз. Это работает, хотя сейчас я предпочитаю использовать File :: Next для такого рода вещей.

Пример:

use File::Next;

my $iter = File::Next::files( { file_filter => sub { /\.lt6$/ } }, $localdir )

while ( defined ( my $file = $iter->() ) ) {
    print $file, "\n";
}

Answer 2

Не забудьте closedir().

Ваш grep должен искать:

my(@file_list) = grep /\.lt6$/, readdir CURRDIR;

Предполагая, что остальная часть вашего синтаксиса приблизительно верна.

Answer 3

my @file_list = glob "$localdir/*.lt6";

Answer 4

Вы можете использовать Файл :: Найти :: Правило ;

use File::Find::Rule;

print "FOUND:\n    "
    , join( "\n    "
          , File::Find::Rule->file->name( '*.lt6' )->in( $path )
          )
    , "\n"
    ;

Answer 5

opendir (CURRDIR, $localdir);
@file_list = grep m/\.lt6$/, readdir CURRDIR;
closedir CURRDIR;
print STDOUT "Found Files: @file_list\n";

Answer 6

Перейти к командной строке

кд \

dir / s * .lt6> mydir.txt

Answer 7

И чтобы добавить немного разнообразия, вы также можете делать такие вещи:

opendir(DIR, $path) || die qq([ERROR] Cannot opendir "$path" - $!\n);
my(@txt) = grep(m{\.txt$}, readdir DIR);
rewinddir DIR;
my(@lt6) = grep(m{\.lt6$}, readdir DIR);
rewinddir DIR;
my(@dirs) = grep(-d "$path/$_", readdir DIR);
closedir DIR;

и т. Д.