> > In this case doing "which ppm" would return /c/ppm.
> 
> For a pure perl implementation, one can use File::Which:
>     http://cpan.uwinnipeg.ca/dist/File-Which
> which installs a pwhich.bat that can be used in the same
> way as which().

It seems to be a good news,
I install File-Which by ppm command,
ppm with 0 size in C: doesn't appear.
The code,
push @path_ext, qw(.com .exe .bat);
in Which.pm ...
This case is so special!

C:\>ren ppm__ ppm

C:\>dir ppm*
 ドライブ C のボリューム ラベルは IBM_PRELOAD です
 ボリューム シリアル番号は 38DC-AC37 です

 C:\ のディレクトリ

2005/11/21  13:02                 0 ppm
               1 個のファイル                   0 バイト
               0 個のディレクトリ   6,425,415,680 バイトの空き領域

C:\>ppm
No Perl script found in input

C:\>pwhich
Usage: C:\Perl\bin\pwhich [-a] [-v] programname [programname ...]
      -a        Print all matches in PATH, not just the first.
      -v        Prints version and exits


C:\>pwhich ppm
C:\Perl\bin\ppm.BAT

C:\>pwhich -v
This is pwhich running File::Which version 0.05

Copyright 2002 Per Einar Ellefsen.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

C:\>pwhich -a ppm
C:\Perl\bin\ppm.BAT

C:\>

Regards,
Hirosi Taguti
[EMAIL PROTECTED]

_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to