如何在perl中查找兩個父目錄？

Question

我有一個路徑：/path/to/here/file.txt。

我想/path/to/

使用

my ($file, $dir) = fileparse($fullPath); 

我能得到file.txt和/path/to/here/

如何得到公正/path/to/？

Answer 1

use Path::Class qw(file); 

say file("/path/to/here/file.txt")->dir->parent; 

注意，這不執行任何文件系統檢查，所以它會返回/path/to即使/path/to是一個符號鏈接，因而不是真正的父目錄。

Answer 2

使用Path::Tiny：

$ perl -MPath::Tiny -e 'CORE::say path($ARGV[0])->parent->parent' /path/to/here/file.txt 

這也不會執行任何文件系統檢查。只使用File::Spec往往會變得單調乏味。我不積極的以下工作：

$ perl -MFile::Spec::Functions=splitpath,catpath,catdir,splitdir -e \ 
'($v, $d) = splitpath($ARGV[0]); @d = splitdir $d; splice @d, -2; \ 
CORE::say catpath($v, catdir (@d))' /path/to/here/file.txt