Проверьте, существует ли каталог как абсолютный путь

Question

Как проверить, существует ли путь/каталог (-d) и полный путь из корневого каталога?

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

• Я хочу аргумент в комплект поставки, чтобы умереть, если это не корневой путь, который существует. os для unix.
• Или, если задана директория, получить полный корневой путь, если он существует?

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, чтобы узнать, существует ли результирующий путь.