Re^2: List EXE_FILES installed by CPAN (FIXED!)

Well /bin shows everything but this is just for CPAN executables. Anyway my original post was broken and was hiding about 60 programs from me! I also learned that unformatted code is very unpopular around here (outside obfu :-). This seems to work locally, let me know if you have any problems, or make improvements:

List EXE_FILES installed by CPAN:

#!/usr/bin/perl -l

use strict;
use warnings;

# List EXE_FILES installed by CPAN

$_ = join '', `perldoc -uT perllocal`;
@_ = (/EXE_FILES:\s([^>]+)/sg);
my @z = ();

for (@_) {
    my @x = split /\s+/;
    s/^\S+\///  for @x;
    push @z, @x;
}
%_ = map { $_ => 1 } @z;
print $_ for sort keys %_;
#print scalar keys %_;
[download]

List EXE_FILES installed by CPAN, by module:

#!/usr/bin/perl -l

use strict;
use warnings;

# List EXE_FILES installed by CPAN, by module

$_ = join '', `perldoc -uT perllocal`;
my @m = (/=head2.*?\|([^>]+)/g);
my @e = (/EXE_FILES:\s([^>]*)/sg);

for (my $c = 0; $c < scalar @m; $c++) {
   $_{$m[$c]} = $e[$c]
}

my @z = ();
my $n = 0;

for (sort { lc($a) cmp lc($b) } keys %_) {
   if (my @x = split /\s+/, $_{$_}) {
      print;
      $n += scalar @x;
      s/^\S+\///  for @x; 
      print " $_" for @x;
      print "";
   }
}
#print $n;
[download]

_{STOP REINVENTING WHEELS, START BUILDING SPACE ROCKETS!—CPAN} 🐪

Comment on Re^2: List EXE_FILES installed by CPAN (FIXED!) Select or Download Code

Replies are listed 'Best First'.
Re^3: List EXE_FILES installed by CPAN (FIXED!) by choroba (Cardinal) on Jun 25, 2018 at 00:29 UTC
> Well /bin shows everything Well yes, but `'~/perl5/bin' ne '/bin'` [download] In fact, `$ echo $PERL_LOCAL_LIB_ROOT /home/choroba/perl5` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]
Re^4: List EXE_FILES installed by Perl! by usemodperl (Beadle) on Jun 25, 2018 at 02:33 UTC
Well yes, but '~/perl5/bin' ne '/bin' What does that mean? In fact, $ echo $PERL_LOCAL_LIB_ROOT /home/choroba/perl5 My environment doesn't have that variable. How does it help isolate executables from CPAN? I guess it does help isolate core perl programs, like this: #!/usr/bin/perl -l use strict; use warnings; # List executables installed by Perl core # List CPAN: https://perlmonks.org/?node_id=1217338 (my $bin = $^X) =~ s/.perl$//; chomp(my @perl = `ls -l $bin`); s/.*\s(\S+)$/$1/ for @perl; # filename shift @perl; chomp($_ = join "", `perldoc -uT perllocal`); my @temp = (/EXE_FILES:\s([^>]+)/sg); my @cpan = (); for (@temp) { my @x = split /\s+/; # filename(s) s/^\S+\/// for @x; # remove path push @cpan, @x; } my $perl = { map {$_=>1} @perl }; my $cpan = { map {$_=>1} @cpan }; my $core = {}; for (keys %$perl) { $core->{$_}++ unless $cpan->{$_} } print $_ for sort keys %$core; [download] _{STOP REINVENTING WHEELS, START BUILDING SPACE ROCKETS!—CPAN} 🐪	[reply] [d/l]


P is for Practical
	PerlMonks