在Perl6中是否可以找到文件名与模式匹配的所有已安装模块?
在Perl5中,我会这样写:
use File::Spec::Functions qw( catfile );
my %installed;
for my $dir ( @INC ) {
my $glob_pattern = catfile $dir, 'App', 'DBBrowser', 'DB', '*.pm';
map { $installed{$_}++ } glob $glob_pattern;
}
Run Code Online (Sandbox Code Playgroud)