从文件名和目录名构造绝对路径

Question

我有两个值：

• 当前目录名
• 绝对或相对的文件名

我需要构建一个明确的绝对文件名（以/开头，没有任何../，没有./），与目录是当前目录时访问该文件相对应。

我需要在Unix中使用Perl进行此操作。

我试过use File::Path;但不工作的权利（错误）：

perl -MPath::Class -e 'my $fileObj = Path::Class::File->new("/boot", "/xx"); 
         print $fileObj->absolute, "\n";' 

输出：

/boot/xx 

但它应该打印/xx，因为它是一个绝对路径，它不应该依赖于当前目录！

Answer 1

# ("/base/path", "x") -> "/base/path/x" 
# ("/base/path", "../x") -> "/base/x" 
# ("/base/path", "/x") -> "/x" 
sub AbsoluteNormalizedPath { 
    my ($dir, $filename) = @_; 
    $filename = "$dir/$filename" unless $filename =~ m{^/}; 
    my @components = split m{/+}, $filename; 
    shift @components; # Первый компонент всегда - пустая строка, вырезаем его 
    # Компоненты без ".." и ".". Работает как стек: добавляем обычные компоненты, убираем последние компонент на "..", игнорируем ".": 
    my @normalizedComponents; 
    foreach my $component (@components) { 
    next if $component eq '.'; 
    if($component eq '..') { 
     # В Unix parent директория корневой директории - сама корневая директория, то есть /.. - то же самое, что/
     # Так что, если список пустой - это не ошибка, оставляем его пустым (что соответсвует корневой директории). 
     pop @normalizedComponents if @normalizedComponents; 
    } else { 
     push @normalizedComponents, $component; 
    } 
    } 
    return '/' . join('/', @normalizedComponents); 
}

Answer 2

Path::Class使用整个路径来确定文件是绝对的还是相对的，所以在这个例子中是“/ boot/xx”。输出的字符串。为了解决你的问题，你需要这样的事：

use Path::Class 

my $fileObj = Path::Class::File->new("/xx"); 

$fileObj = Path::Class::File->new("/boot",$fileObj->relative()) if $fileObj->is_relative();