Whereis in Perl

http://search.cpan.org/~pereinar/File-Which-0.05/Which.pm

Knowing nothing about Perl really - although I've a few hacked scripts on my server - does this do a whereis; and can it run in a Windows console locally?

This is *just* for curiosities sake - see www.peetm.com/blog for more efforts!

You should define what features and version of whereis you mean.  The examples on your blog and examples given here are different to the results and output of the Linux whereis.

@Tintin

>>You should define what features and version of whereis you mean.

Well, I'm not too fussy here.

For example, I've never specified that wildcards should be expanded, nor that argv[0/1] (depending upon the language) should exist, nor that I'd expect a recursive search.

Nor any other constraint; other than that; given a Windows' PATH, that, IF a file exists, that the whereis should send its output to stdout - saying where it is.

Obviously, a Perl/Python/C/Whatever program should be run from a console.

I'm really looking for the most concise, shorttest program that can do this under Windows.

Your requirements are more the output of which rather than whereis.  Here's the difference on a Linux system

$ which perl
/ramdisk/bin/perl

$ whereis perl
perl: /bin/perl /bin/perl.orig /usr/bin/perl /usr/bin/perl.orig /sbin/perl /sbin/perl.orig /usr/sbin/perl /usr/sbin/perl.orig /usr/share/man/man1/perl.1 /usr/share/man/man1/perl.1.gz

Note that my script will run on Windows if you have cygwin (or similar) installed.

@Tintin

Don't have cygwin; and have no interest in having a **ux version -- Windows is what I'd like
[no offence meant!]

The code I gave will run on windows just fine, as long as the File::Which module is installed.
Note that windows programs can have an extension, and the File::Which module will include that in it's search.

Meaning, if you search for perl, the File::Which module will search for perl.bat, perl.exe, perl.com, ... (a few others).

>>File::Which

Sounds 'Spooky' to me -- 'Blair::Witch'!