如何使用perl將完整路徑轉換爲相對路徑？

Question

我有一個文件的完整路徑和Perl程序中兩個變量的父目錄之一的完整路徑。

什麼是安全的方式來計算文件相對於父目錄的相對路徑。需要在windows和unix上工作。

例如

$filePath = "/full/path/to/my/file"; 
$parentPath = "/full"; 
$relativePath = ??? # should be "path/to/my/file" 

Answer 1

使用File::Spec

他們有一個abs2rel功能

my $relativePath = File::Spec->abs2rel ($filePath, $parentPath); 

將工作在Windows和Linux

Answer 2

use Path::Class; 
my $full = file("/full/path/to/my/file"); 
my $relative = $full->relative("/full");