Perlben hogyan lehet a tartalmazó folderben lévő összes folderen végigmenni abs sorrend szerint?

$path = "/utvonal/a/folderhez";

my @dirs = ();

opendir( my $DIR, $path );

while ( my $entry = readdir $DIR ) {

next unless -d $path . '/' . $entry;

next if $entry eq '.' or $entry eq '..';

push @dirs, $entry;

}

@dirs = sort @dirs;

foreach(@dirs){

print "$_\n";

}

closedir $DIR;

Röviden: megnyitjuk a könyvtárat. Kiolvassuk az összes filet. Az alkönyvtárakat betesszük egy tömbbe. A ciklus végén rendezzük a tömböt. Egy másik ciklussal bejárjuk a már rendezett könyvtárlistát.