перечисление каталогов и подкаталогов в массив с путем;

Question

Мне нужен список всех каталогов и подкаталогов, хранящихся в массиве с использованием Perl.

Например:

$array[0] = '/home';
$array[1] = '/home/ali';
$array[2] = '/home/perl';
$array[3] = '/home/stackoverflow';
$array[4] = '/home/ali/desktop';
$array[5] = '/home/ali/sub';
$array[6] = '/home/stackoverflow/new';

Answer 1

use File::Find::Rule;
my @array = File::Find::Rule->directory->in('/home');

File :: Find :: Rule

Answer 2

my @array = ('/home', grep -d, glob '/home/*');

Answer 3

Вы можете сделать это по старинке:

File::Find::find( sub {
        say $File::Find::name if -d $File::Find::name
    }, @array 
    );