在bin文件夾以外的Perl中創建一個目錄

Question

我試圖在perl中創建一個文件夾，但它或者出現在C：\驅動器或我的perl腳本所在的文件夾中。

use File::Basename; 
use File::Path qw/make_path/; 

my $file = "/$tournamentName/files/archive/"; 
my $dir = dirname($file); 
make_path($dir); 

上述代碼將$ tournamentName文件夾放置在C：\驅動器中。我如何指定文件夾是在bin外部創建的 - 最好在bin的父文件夾中創建。

感謝

Answer 1

my $dir = "$path_to_bin/../$tournamentName"; 

如果你的意思是在腳本所在的目錄，

use FindBin qw($RealBin); 

my $dir = "$RealBin/../$tournamentName";