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 
    );

将目录和子目录列为带路径的数组;

3 个答案: