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.

In reply to Re^3: showPerlDirConfig by Aristotle
in thread showPerlDirConfig by Intrepid

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.