Need to find a file on the execution PATH

[davido]

Hey there...

Does anyone know of a (cross platform - works in Win32 /or/ *nix) way
to figure out of a executable program is on a search path? For
example, to find if foobar.exe is in the Win32 PATH?

Googling didn't turn up suitable results (but I might have not not
used the right search criteria).

TIA.

DavidO

 

[Paul Lalli]

Hey there...

Does anyone know of a (cross platform - works in Win32 /or/ *nix) way
to figure out of a executable program is on a search path? For
example, to find if foobar.exe is in the Win32 PATH?

Googling didn't turn up suitable results (but I might have not not
used the right search criteria).

Take a look at the modules File::Find and File::Spec (specifially, the
File::Spec->path() function). Both are in the standard distribution.

Paul Lalli

 

[davido]

Take a look at the modules File::Find and File::Spec (specifially, the
File::Spec->path() function). Both are in the standard distribution.

Perfect! Do you know how to squelch the messages when find *doesn't*
find something tho? I'm seeing this:

Can't stat C:\Perl\bin\/csdfommand.com: No such file or directory
at sbt_build_deploy_tools.pm line 535
Can't stat C:\Program Files\Borland\BDS\1.0\Bin/csdfommand.com: No
such file or
directory
at sbt_build_deploy_tools.pm line 535
Can't stat c:\j2sdk1.4.1_05\bin/csdfommand.com: No such file or
directory
at sbt_build_deploy_tools.pm line 535
Can't stat C:\WINDOWS\system32/csdfommand.com: No such file or
directory

 

[davido]

Perfect! Do you know how to squelch the messages when find *doesn't*
find something tho? I'm seeing this:

Nevermind.. Apparently that was due to a "use diagnostics" statement
in my perl module.

Thanks again!

 

[John W. Krahn]

Does anyone know of a (cross platform - works in Win32 /or/ *nix) way
to figure out of a executable program is on a search path? For
example, to find if foobar.exe is in the Win32 PATH?

Googling didn't turn up suitable results (but I might have not not
used the right search criteria).

use Env '@PATH';

my $program = 'foobar.exe';

-x and print "$_\n" for map "$_/$program", @PATH;



John

 

[Joe Smith]

use Env '@PATH';

my $program = 'foobar.exe';

-x and print "$_\n" for map "$_/$program", @PATH;

Not very cross-platform. For just Win32 and *nix, I would use
my $program = 'foobar';
-x and print "$_\n" for map {"$_/$program", "$_/$program.exe"}, @PATH;

But to do it right means also checking for .bat and .cmd, and using
File::Spec so that it will work on MacOS Classic and OpenVMS.
-Joe

 

[Ben Morrow]

Not very cross-platform. For just Win32 and *nix, I would use
my $program = 'foobar';
-x and print "$_\n" for map {"$_/$program", "$_/$program.exe"}, @PATH;

Use $Config{_exe} for more portability.

But to do it right means also checking for .bat and .cmd

Hmmm.... if you want to do this, you need to check for Win32 and then
use the appropriate environment var; I'd probably just stick to exe.

, and using
File::Spec so that it will work on MacOS Classic and OpenVMS.

....and anywhere else...

Ben