Perl readdir как однострочный?

Question

На данный момент я знаю два способа открыть и прочитать каталог на Perl. Вы можете использовать opendir, readdir и closedir или можете просто использовать glob, чтобы получить содержимое каталога.

---

Пример:

Используя opendir, readdir и closedir:

opendir my $dh, $directory; 
my @contents = readdir $dh; 
closedir $dh; 

glob Использование:

my @contents = <$directory/*>; 

---

Я был проинформирован, что в некоторых ситуациях метод glob может привести к непредсказуемым результатам (например, он может действовать по-разному на разных операционных системах, когда он встречает специальные символы в именах каталогов).

Что мне нравится в методе glob, так это то, как «быстро и грязно». Это одна простая строка, и она выполняет свою работу, но если она не работает во всех ситуациях, которые могут привести к неожиданным и трудным для поиска ошибкам.

мне было интересно, если есть своего рода путь «сокращенном», чтобы использовать opendir, readdir, closedir метод?

Возможно, что-то вроде этого fancy method for slurping a file в одной строке, которую я недавно обнаружил.

Answer 1

Я считаю, что я пришел с действительным однострочником, который включает opendir/readdir!

my @contents = do { opendir my $dh, $dir or die $!; readdir $dh }; 

Это должно открыть и прочитать каталог, вернуть все его содержимое и как только do блок концов, то $dh должен быть закрыт Perl «автомагически».

Answer 2

Как насчет следующего?

my @contents = get_dir_contents($dir); 

Вы даже можете решить, как это обрабатывает ошибки, если . должны быть возвращены, если .. должны быть возвращены, если «скрытые» файлы должны быть возвращены и является ли путь перед именем файла, так как вы пишете get_dir_contents.

---

Альтернативы:

• use File::Find::Rule qw(); 
  my @contents = File::Find::Rule->maxdepth(1)->in($dir); 
  

• use File::Slurp qw(read_dir); 
  my @contents = read_dir($dir); 
  

• # Unix only, but that includes cygwin and OS/X. 
  my @contents = <\Q$dir\E/.* \Q$dir\E/*>;