Я использую этот код, чтобы получить список всех файлов в определенном каталоге:
opendir DIR, $dir or die "cannot open dir $dir: $!";
my @files= readdir DIR;
closedir DIR;
Как я могу изменить этот код или что-то добавить к нему, чтобы он искал только текстовые файлы и загружал только массив с префиксом имени файла?
Пример содержимого каталога:
.
..
923847.txt
98398523.txt
198.txt
deisi.jpg
oisoifs.gif
lksdjl.exe
Пример содержимого массива:
files[0]=923847
files[1]=98398523
files[2]=198
opendir my $dirh, $dir_path or die "cannot open dir $dir: $!";
- person Robert P   schedule 02.10.2009