Perl `dirname`がフルパスの代わりにドットを出力します

Question

私はperlスクリプトを実装しようとしています。私は実行ファイルのディレクトリを取得する必要があります。

たとえば、私が実行しているファイルがC:\Scripts\MyScript.plにある場合は、C:\Scriptsを取得したいと考えています。

私はdirnameを試しましたが、私がしたいことをしていないようです。それはちょうど私が私が一緒にdirnameとabs_pathを使用する必要があることを理解.

を印刷し、それはいくつかのUNIX探してディレクトリを返した後、明らかに最終的に無効なパスで実際のパスでそれを連結しているため、しかしabs_pathは、私にはバグだらけです。

私の概念証明です。

# The initial variable with file 
say $0; # C:\Users\sed\AppData\Roaming\npm\node_modules\my-test-module\my-test-file 

# This is just a current directory 
say dirname($0); # . 

# This looks like a bug to me, the shell is opened in C:/Users/sed so it is related 
say abs_path($0); # /c/Users/sed/C:/Users/sed/AppData/Roaming/npm/node_modules/my-test-module\my-test-file 

# This is what I need, except I don't need that first UNIX looking part 
say dirname(abs_path($0)); # /c/Users/sed/C:/Users/sed/AppData/Roaming/npm/node_modules/my-test-module 

Answer 1

あなたがする必要があるもののための最良の選択ではありません。 代わりにFile :: Specを試してください。

C:\Users\Ken> echo C:\Scripts\MyScript.pl | perl -MFile::Spec -lne "print $_; ($v,$d,$f)=File::Spec->splitpath($_); print $v.$d;" 
C:\Scripts\MyScript.pl 
C:\Scripts\ 

タイプ：詳細については、

perldoc File::Spec 

。ところで、私はStrawberry perl v5.24.1でテストしました

Answer 2

use FindBin qw($RealBin); 

say $RealBin; 

一般的な使用：なぜそれがかもしれ

perldoc File::Basename 

を示しています。ざっと見は

use lib $RealBin; 

または

use lib "$RealBin/lib";