Как получить все имена файлов в каталоге и поместить их в текстовый файл с помощью Perl?

Question

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

Мне было интересно, могут ли какие-нибудь хорошие программисты на Perl помочь мне с этим. Извините, если я попрошу вас написать сценарий, но я уверен, что кто-то может понять, как это сделать, всего за несколько строк.

Answer 1

Вы можете сделать:

perl -le 'for (glob(".* *")) {print if -f}'

Answer 2

Если вы действительно хотите сделать это в Perl по какой-то причине:

  opendir DIR, '/some/dirname'         or die "$!";
  open FILE, '>', '/some/outputfile'   or die "$!";
  print FILE "$_\n" while readdir DIR;
  close FILE;
  closedir DIR;

отредактировано, чтобы вставить новые строки в выходной файл ... упс!

Чтобы сделатьэто более универсально, вы можете сделать другие вещи с именем файла, разделив средний бит вверх:

  my $filename = readdir DIR;
  # do something with $filename
  print FILE $filename, "\n";

В первом примере вместо этого используется местоимение Perl $_.

Но, как указал @ Ronin420, гораздо проще сделать ls -a1 /some/dirname > /some/outputfile (при перенаправлении stdout в файл ls также добавит и сам -1)