在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";