file test results not as expected

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

I'm trying to push all executibles in my $PATH to an array, but doesn't seem to work as expected.

use IO::Dir;

my @cmds;
my @paths = split /\:/, $ENV{PATH};

foreach my $path (@paths) {
    tie my %dir, 'IO::Dir', $path;

    foreach my $file (keys %dir) {
        if (-f -x $file) {
            push @cmds, $file;
        }
    }

    undef %dir;
}

foreach my $cmd (@cmds) {
    print $cmd . "\n";
}
[download]

Here is the output I'm getting:

h2xs
[download]

I guess its kinda cool it found a perl related executable, but I was hoping for more.
Edgar

Comment on file test results not as expected Select or Download Code

Replies are listed 'Best First'.
Re: file test results not as expected by toolic (Bishop) on Nov 21, 2020 at 23:33 UTC
You need to use the full path to the file for the file test. Change: `if (-f -x $file) {` [download] to: `if (-f -x "$path/$file") {` [download] This is how I do it: Finding commands in Unix PATH: findcmd is a script which searches through the directories in the Unix PATH variable for executable files	[reply] [d/l] [select]
Re^2: file test results not as expected by navalned (Beadle) on Nov 22, 2020 at 00:00 UTC
Thats cool and works well. You can try this for a 5 sec improvement at least on my system: `grep { -x "$path/$_" && !-d _ }` [download] Saves a lot of stat() calls. Thanks for the answer. I think I knew the answer deep in the recesses of my brain but couldn't see it. Edgar	[reply] [d/l]
Re: file test results not as expected by Fletch (Bishop) on Nov 22, 2020 at 03:13 UTC
Using Path::Tiny `$ perl -MPath::Tiny -E 'for my $dir ( split(/:/,$ENV{PATH}) ){say for +grep {-f -x $_} path($dir)->children }'` [download] Also depending on your shell it may already have these cached. For instance ZSH provides a `commands` hash which maps from the command name to the corresponding file name. `$ print -l "${(@k)commands}" \| sort \| tail zipinfo zipnote zipsplit zless zmore zmqshell.py znew zprint zsh zsh-5.8 $ print $commands[zsh] /usr/local/bin/zsh` [download] Edit: Dump the ZSH cache with `for i in "${(@onk)commands}" ; { printf "%20s\t%s\n" "$i" "$commands[$i]" } \| less`; of course keep in mind that the `commands` parameter shows only what would be found first on `PATH`; if you're looking for exhaustive (including things with matching names shadowed in subsequent directories) you'd want the other solutions. The cake is a lie. The cake is a lie. The cake is a lie.	[reply] [d/l] [select]


good chemistry is complicated, and a little bit messy -LW
	PerlMonks