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