Perl-中关于-grep-和-map-的配合使用

可以将 grep 的结果直接作为 map 的输入使用:

my @dir_hs = map { opendir my $dh, $_; $dh } grep { -d } @ARGV;