use File::Find; my @dirs; find( sub { -d and push @dirs, $File::Find::name }, @ARGV ); print $_,$/ for @dirs; [download]
In reply to Re: multiple dir. grep by sh1tn in thread multiple dir. grep by Cockneyphil