5

Is it possible in Raku to find all installed modules whose file-name matches a pattern?

In Perl5 I would write it like this:

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;
}

1 Answer 1

5

There is currently no way to get the original file name of an installed module. However it is possible to get the module names

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();

see: Zef::Client.list-installed()

1
  • 2
    Note there is a PR that allows the original file names to be retained, so maybe in the future rakudo PR#729
    – ugexe
    May 20, 2016 at 21:16

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.