How do I generate a list of available top-level packages?

nysus has asked for the wisdom of the Perl Monks concerning the following question:

This snippet of code will generate a list of symbols for a particular package, called PackageName:

sub dispSymbols {
    my($hashRef) = shift;
    my(%symbols);
    my(@symbols);

    %symbols = %{$hashRef};
    @symbols = sort(keys(%symbols));

    foreach (@symbols) {
     print Dumper   printf("%-10.10s| %s\n", $_, $symbols{$_});
    }
}

dispSymbols(\%PackageName::);
[download]

But let's say I want to discover all the different packages that I can use inside of the dispSymbols call. How can I generate a list of those top-level packages?

$PM = "Perl Monk's";
$MCF = "Most Clueless ~~Friar~~ ~~Abbot~~ ~~Bishop~~ ~~Pontiff~~ ~~Deacon~~ ~~Curate~~ ~~Priest~~ Vicar";
$nysus = $PM . ' ' . $MCF;
Click here if you love Perl Monks

Comment on How do I generate a list of available top-level packages? Select or Download Code

Replies are listed 'Best First'.
Re: How do I generate a list of available top-level packages? by tobyink (Canon) on May 06, 2020 at 18:18 UTC
Try this: `dispSymbols(\%::);` [download] Or this: `dispSymbols(\%main::);` [download] They should both do the same thing. Be aware that the main package does have a bunch of random stuff in it. toby döt ink	[reply] [d/l] [select]
Re^2: How do I generate a list of available top-level packages? by nysus (Parson) on May 06, 2020 at 20:46 UTC
Thanks. yeah, I see now I have to manually go through and pull the packages from that hairy hash manually. $PM = "Perl Monk's"; $MCF = "Most Clueless ~~Friar~~ ~~Abbot~~ ~~Bishop~~ ~~Pontiff~~ ~~Deacon~~ ~~Curate~~ ~~Priest~~ Vicar"; $nysus = $PM . ' ' . $MCF; Click here if you love Perl Monks	[reply]
Re^3: How do I generate a list of available top-level packages? by haukex (Bishop) on May 07, 2020 at 07:44 UTC
I have to manually go through and pull the packages from that hairy hash manually. You can also use Devel::Symdump: `use Devel::Symdump; my @packages = Devel::Symdump->rnew->packages;` [download]	[reply] [d/l]
Re: How do I generate a list of available top-level packages? by jcb (Parson) on May 08, 2020 at 00:03 UTC
You can get the top-level symbol tables with `grep /::$/, keys %::` but that will not include second level or deeper packages. To get a list of all packages, you will need to recurse on each of those. Here is a simple one-liner for that: `perl -e 'sub dp ($) {my $base = shift; my @nodes = map $base.$_, grep +/::$/, keys %{$base}; @nodes = grep !/^(?:::)?main::main/, @nodes if +$base =~ /^(?:::)?main/; print join(" ", @nodes),"\n"; dp($_) for @no +des}' -e 'dp "::"'` [download] Note the special handling due to `::` and `main::` being aliases and that this does not work if `strict 'refs'` is in effect.	[reply] [d/l] [select]
Re: How do I generate a list of available top-level packages? by nysus (Parson) on May 06, 2020 at 18:15 UTC
I think the proper terminology is: how do I discover all the symbol tables. $PM = "Perl Monk's"; $MCF = "Most Clueless ~~Friar~~ ~~Abbot~~ ~~Bishop~~ ~~Pontiff~~ ~~Deacon~~ ~~Curate~~ ~~Priest~~ Vicar"; $nysus = $PM . ' ' . $MCF; Click here if you love Perl Monks	[reply]


Problems? Is your data what you think it is?
	PerlMonks