Help for this page

Select Code to Download

Select or download this

use File::Glob ':glob';
my @dirs = grep { -d } bsd_glob('/usr/darren/' . $some_magic_globstr_h
+ere, GLOB_ERR); 
die "glob: $!" if GLOB_ERROR;

Select or download this

opendir my $dh, /usr/darren' or die "opendir: $!";
my @dirs = grep { -d } map { "/usr/darren/$_" } grep { !/^\.\.?$/ } re
+addir $dh;
closedir $dh or die "closedir: $dh";  # this line optional