Блог

Я считаю, что я делаю это слишком сложным. Мне нужен скрипт, который хранит все каталоги и файлы верхнего уровня (в текущем рабочем каталоге) в массив.

Это то, что у меня есть:

 #!/usr/bin/perl

use strict;
use warnings;

my $dir = 'C:tmp';
my @names = ();
opendir(DIR, $dir) or die $!;

while (my $file = readdir(DIR)) {

    next if ($file =~ m/^./);
    $file = "$file"." ";
    # print "$file";
    @names = split( /s /,$file);
    foreach my $slot (@names) {
    $slot = "$slot"." ";
    }
    print @names;
}
closedir(DIR);
exit 0;
 

Хотя это работает, я знаю, что это очень неаккуратно, и я чрезмерно усложняю это, но я не могу придумать ничего, что могло бы упростить это. Я стараюсь избегать использования каких-либо модулей perl, кроме самых базовых (File::Find в порядке, но любые модули cnet — нет). Итак, мой вопрос в том, как я могу это упростить? Спасибо

Это может быть то, что вы хотите,

 my @names = grep !/^[.]{1,2}$/, readdir(DIR);
 

ваш цикл можно сократить до

 while (my $file = readdir(DIR)) {

    next if $file =~ /^./;
    $file =~ s/s / /g;
    $file .= " ";
    print $file;
}
 

если это имеет какой-то смысл?

Вы могли бы использовать библиотеку File::Slurp следующим образом:

 #!/usr/bin/perl

use File::Slurp;

my @files = read_dir('C:tmp');
 

Вы что-то недопонимаете, но я не совсем уверен, что именно. В нем всегда есть только одно имя файла $file , и нет смысла добавлять пробел перед разделением на пробелы

Ваш массив @names будет содержать фрагменты имени файла, разделенные пробелами, если в нем есть пробелы, в противном случае это будет просто исходное имя файла

Затем вы помещаете пробелы в конце каждого элемента @names , предположительно, для замены удаленных на split , поэтому мне интересно, почему вы использовали split в первую очередь

Наконец, print @names выведет повторно собранное имя файла с дополнительным пробелом в конце. Обратите внимание, что если в вашем исходном имени файла было несколько пробелов, теперь они будут сведены к одному пробелу

Самый простой способ распечатать массив строк, разделенных пробелами, — это интерполировать его в строку, заключенную в двойные кавычки

Эта программа выполняет то, что вы просили, но оставляет исходные имена файлов нетронутыми. Он использует grep для ввода @names только те имена файлов, которые не начинаются с точки . . Он также использует лексический дескриптор каталога, который является современной передовой практикой

 use strict;
use warnings;

my $dir = 'C:tmp';
opendir my $dh, $dir or die $!;
my @names = grep /^[^.]/, readdir $dh;
print "@namesn";