perl 심볼릭 링크 된 경로

Question

나는 /a/b/c/a.pl 아래에 스크립트가 있습니다. 하지만 을 사용하여 액세스하고 있습니다. symlink 경로를 사용하여 스크립트를 실행할 때 어떻게 경로를 읽을 수 있습니까? 내가 /a/b/c/a.pl를 사용할 때

• , 나는 /a/sl/c/a.pl를 사용할 때, 나는 /a/sl/c

Answer 1

난 당신이 요구하는지 모르겠어요 가야 /a/b/c

받아야하지만 FindBin은 아마 당신이 무엇을 할 것인가 필요. perldoc FindBin을 읽고 약 $Bin 및 $RealBin을 읽으십시오. FindBin을 원하지 않을 경우

, 시도 :

#!/usr/bin/env perl 

use strict; 
use warnings; 

use Cwd; 
use File::Basename; 

my $i_am_at = dirname($0); 
if($i_am_at eq '.'){ 
    $i_am_at = cwd(); 
} 
print "I am at $i_am_at\n"; 

Answer 2

을 * 괜찬아 시스템의 경우 적어도, 당신은 $ENV{PWD} 또는 `pwd`를 사용할 수 있습니다.

Answer 3

$0은 이후에 나오는 변수입니다.