For directories only you want
grep -d, glob ...
I don't use glob because it has its own syntaxt
and quirks, I find this much clearer to use File::Find::Rule with regex
#!/usr/bin/perl --
use strict;
use warnings;
use File::Find::Rule;
my $dir = '//pcnamevm/c$/program files/adobe/';
$dir = 'C:/program files/Mozilla Firefox/';
my @folders = File::Find::Rule->directory->maxdepth(1)->in($dir);
use DDS;
Dump \@folders;
__END__
$ARRAY1 = [
'C:/program files/Mozilla Firefox',
'C:/program files/Mozilla Firefox/chrome',
'C:/program files/Mozilla Firefox/components',
'C:/program files/Mozilla Firefox/defaults',
'C:/program files/Mozilla Firefox/dictionaries',
'C:/program files/Mozilla Firefox/extensions',
'C:/program files/Mozilla Firefox/greprefs',
'C:/program files/Mozilla Firefox/modules',
'C:/program files/Mozilla Firefox/plugins',
'C:/program files/Mozilla Firefox/res',
'C:/program files/Mozilla Firefox/searchplugins',
'C:/program files/Mozilla Firefox/uninstall'
];
|