Not as pretty, but seems to do the same thing?

In this case, my intention was to use the sorting of the output to illustrate in an immediately easy-to-see manner, the relationship between

sitelib, sitelibexp and installsitelib

In this case the "prettiness" is part of the point, and otherwise of course TMTOWTDI. But note that your alternative certainly falls lower on the portability scale since you are relying on the which tool, which is *nix-centric, and won't be present on many MS Windows boxes, as is also true of the grep command. Although I didn't write this tool on M$ Windows, it's certainly my intention that Win32-Perl users can use it as well as *nix-perl users.

Thanks for your feedback!

    me

-- 
use PerlMonk::Tye qw(:wisely);

Actually it could easily do without the greps - or I could use perl for the same task.

Also note that on no system is $PATH searched recursively. Your code does, so may find the wrong binary.

It still seems excessively convoluted. How about so?

#!/usr/bin/perl -w
use strict;

use Config;
use File::Spec::Functions qw(catfile file_name_is_absolute);

my ($binary) = file_name_is_absolute($^X)
    ? $^X
    : (
        grep -x,
        map catfile($_,$^X),
        split /\Q$Config::Config{path_sep}/, $ENV{PATH}
    );

my %interesting =
    map +(
        $_ => do {
            (my $rwa = $_) =~ s/^install|exp$//;
            $rwa . (/^install/ ? 3 : /^exp$/ ? 2 : 1);
        }
    ),
    grep {
        /^(?!installusr|ta|mv|mu|d_)\w*
          (?:bin(?!compat)|arch(?!name|obj)|priv|
          (?:vendor|site)(?!lib_|prefix))
          [a-z]*
         /x
    }
    keys %Config::Config;

print(
    "Binary is at: $binary\n\n",
    map {
        my $lf = /^install/ ? "\n" : '';
        sprintf("%-20s        %s\n", $_, $Config::Config{$_}) . $lf;
    }
    sort { $interesting{$a} cmp $interesting{$b} }
    keys %interesting
);
[download]

Makeshifts last the longest.

Aristotle wrote:


my ($binary) = file_name_is_absolute($^X)
    ? $^X
    : (
        grep -x,
        map catfile($_,$^X),
        split /\Q$Config::Config{path_sep}/, $ENV{PATH}
    );
[download]

As far as I can see, you are calling grep in a scalar context and would normally be putting "1" (0x1) into $binary using this code. Am I wrong?

I (being the one who has to maintain this code) kept to my own version of what is less convoluted / obfuscated, but have added credits in the POD for pointing me towards a better code block for getting the fully-qualified path to the perl interpreter. Thank you.

    me


-- 
use PerlMonk::Tye qw(:wisely);