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

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

文件::查找::规则