디렉토리가 절대 경로로 존재하는지 확인하십시오.

Question

경로/디렉토리가 존재하고 (-d) 루트 디렉토리의 전체 경로 이름을 어떻게 확인합니까?

i.e. ~/mysubdir vs /home/me/mysubdir vs mysubdir. 

• 가 나는 가 존재하는 루트 경로가 아닌 경우 죽을 제공된 인수를 원한다. 유닉스에 특화된 OS.
• 또는 주어진 디렉토리에 전체 루트 경로가 있으면이를 얻으시겠습니까?

Answer 1

use strict; 
use warnings; 
use feature 'say'; 

use Cwd qw/abs_path getcwd/; 
use File::HomeDir; 

my $path = 'foo/../bar'; 

if($path =~ /^~/) { 
    my $home = File::HomeDir->my_home; 
    $path =~ s/^~/$home/; 
} 

if($path !~ m!^/!) { 
    $path = getcwd . "/$path"; 
} 

my $full_path = abs_path($path); 

if(defined $full_path && -d $full_path) { 
    say "$full_path exists"; 
} else { 
    say "$path is non-existant"; 
} 

File::Homedir 당신은 사용자 홈 디렉토리를 얻을 수 있습니다, 당신은 다음 경로에 물결표를 교체 할 수 있습니다.

이 시점의 경로가 / (상대 경로)로 시작하지 않는 경우 절대 경로를 얻으려면 현재 작업 디렉토리 앞에 getcwd을 추가하십시오.

완료하면 abs_path을 통해 전달하여 . 및 ..과 같은 기호 및 심볼릭 링크를 해결할 수 있습니다.

마지막으로 -d으로 테스트하여 결과 경로가 있는지 확인할 수 있습니다.