Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: One Bizarre Perl Problem

by VinsWorldcom (Parson)
on Oct 27, 2010 at 17:57 UTC ( #867810=note: print w/replies, xml ) Need Help??

in reply to One Bizarre Perl Problem

First off, love your new sig - 'Swiss Army Nerd Idiot' ;-)

I use Windows (XP with Activestate 5.10.1) all the time for my Perl development. I believe when Windows gets a program name without extension (your example was 'perl'), the 'search' is similar to the following pseudo-code:

PROGRAM = perl PATH = '.' + %PATH% foreach PATH in %PATH% { foreach EXTENSION in %PATHEXT% { TRY PATH\perl.EXTENSION } }

That is to say, search the local directory first, even if it isn't in your path (you won't see '.' when you type 'path' from cmd.exe). Try appending each extension in the %PATHEXT% environment variable to the program name and search current directory followed by each directory in your path.

Values of %PATH% and %PATHEXT% can be found by:

C:\> set PATH

This is *WAY* beyond Perl scope, but a nifty batch file I found and modified (I would give credit if only I remembered where I found this, Google 'which.bat' and a few different sites with different versions of this come up) acts much like the 'which' command on Unix. Save as 'which.bat' and put it in a directory in your %PATH% environment variable.

@echo off setlocal REM REM Help REM if {%1}=={/?} goto HELP if {%1}=={--help} goto HELP REM REM Check args REM if {%1}=={} goto SYNTAX_ERROR if not {%3}=={} goto SYNTAX_ERROR REM REM Start Get ARGS REM :ARGS if {%1}=={} goto EXECUTE set string=%1 REM REM If the first character in arg is a -, it's a switch REM if "!string:~0,1!"=="-" ( set position=0 :LOOP REM REM If the character indicated by the string is a space, ech +o a return; REM else, just echo the character REM if "!string:~%position%,1!"=="" goto SLIDE if "!string:~%position%,1!"=="a" set WHICHALL=YES&& goto INCR if "!string:~%position%,1!"=="-" goto INCR echo %0: unknown option -- "!string:~%position%,1!" :INCR REM REM Increment the position in the string and loop REM set /a position=%position%+1 goto LOOP ) else set batchparams=%1 :SLIDE shift goto ARGS REM ------------------------------------------------------- :EXECUTE set errorlevel_=0 set program_=%batchparams% :: Any input with wildcard or path characters is a syntax error. for /F %%i in ('echo ":" ^& echo "\" ^& echo "*" ^& echo "/" ^& echo " +?" ^& echo "," ^& echo ";"') do ( echo %program_% | find %%i > nul && goto SYNTAX_ERROR ) :: This variable stores the current directory, followed by PATH, as :: the search order to search for program files. Quotes are added :: between each ';' to handle paths with spaces. set path_="%cd%";"%PATH:;=";"%" :: Lowercase the path extensions. This is needed to perform :: case-insensitive extension comparisons. set path_ext_=%PATHEXT% set path_ext_=%path_ext_:A=a% set path_ext_=%path_ext_:B=b% set path_ext_=%path_ext_:C=c% set path_ext_=%path_ext_:D=d% set path_ext_=%path_ext_:E=e% set path_ext_=%path_ext_:F=f% set path_ext_=%path_ext_:G=g% set path_ext_=%path_ext_:H=h% set path_ext_=%path_ext_:I=i% set path_ext_=%path_ext_:J=j% set path_ext_=%path_ext_:K=k% set path_ext_=%path_ext_:L=l% set path_ext_=%path_ext_:M=m% set path_ext_=%path_ext_:N=n% set path_ext_=%path_ext_:O=o% set path_ext_=%path_ext_:P=p% set path_ext_=%path_ext_:Q=q% set path_ext_=%path_ext_:R=r% set path_ext_=%path_ext_:S=s% set path_ext_=%path_ext_:T=t% set path_ext_=%path_ext_:U=u% set path_ext_=%path_ext_:V=v% set path_ext_=%path_ext_:W=w% set path_ext_=%path_ext_:X=x% set path_ext_=%path_ext_:Y=y% set path_ext_=%path_ext_:Z=z% :: If the program name has an extension, we want to verify that the :: extension is one of those in the path_ext_ environment variable. :: If it is, then this script will only search for that program with :: that specific extension. If not, all of the extensions in the :: path_ext_ variable will be tested, appended to the program name. :: Get the extension if any from the program name. for /F %%i in ("%program_%") do (set extension_=%%~xi) :: Comparing the program extension against the list of executable :: extensions. If the extension is found, then path_ext_ will just :: have that extension. set path_ext_=%path_ext_:;= % if not {%extension_%}=={} ( for %%i in (%path_ext_%) do if "%%i"=="%extension_%" ( set path_ext_=%extension_% for /F %%i in ("%program_%") do (set program_=%%~ni) ) ) :: This will prepend a path prefix to the program name and append an :: executable extension for every path and extension found in the :: path_ and path_ext_ variables. for %%i in (%path_%) do ( for %%j in (%path_ext_%) do ( if exist "%%~i\%program_%%%~j" ( set found_=%%~i\%program_%%%~j if {%WHICHALL%}=={YES} echo !found_! if not {%WHICHALL%}=={YES} goto FOUND ) ) ) if "%found_%"=="" echo '%batchparams%' not found. goto END :FOUND echo %found_% goto END :SYNTAX_ERROR echo which: The syntax of the command is incorrect. 1>&2 goto ERROR :ERROR set errorlevel_=1 :END exit /B %errorlevel_% :HELP echo. echo %0 will find the program file that is used when run from echo a DOS prompt. It will search the current directory and the echo PATH environment variable directories for the program using echo the extensions found in the PATHEXT environment variable. echo. echo USAGE: echo. echo %0 [options] ^<program^> echo. echo -a Print all matches in order; don't stop at first +. echo. echo program An external command, program, or script. echo. echo If you want to find a program with a particular extension, echo include that extension in the program name and the 'which' echo command will only search for a program file with that extensi +on. echo.

Now, from cmd.exe:

\\vmware-host\Shared Folders Z:\mvincent\tmp> which perl Z:\mvincent\tmp\perl.bat \\vmware-host\Shared Folders Z:\mvincent\tmp> which -a perl Z:\mvincent\tmp\perl.bat C:\Perl\bin\perl.exe

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://867810]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (6)
As of 2018-06-23 02:48 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (125 votes). Check out past polls.