Возможно ли в 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;
}
В настоящее время нет способа получить исходное имя файла установленного модуля. Однако можно получить модуль имена
sub list-installed {
my @curs = $*REPO.repo-chain.grep(*.?prefix.?e);
my @repo-dirs = @curs>>.prefix;
my @dist-dirs = |@repo-dirs.map(*.child('dist')).grep(*.e);
my @dist-files = |@dist-dirs.map(*.IO.dir.grep(*.IO.f).Slip);
my $dists := gather for @dist-files -> $file {
if try { Distribution.new( |%(from-json($file.IO.slurp)) ) } -> $dist {
my $cur = @curs.first: {.prefix eq $file.parent.parent}
take $_ for $dist.hash<provides>.keys;
}
}
}
.say for list-installed();
см.: Zef::Client.list-installed()
