如何在Perl中的路徑中獲取目錄

Question

我有一個目錄路徑：

my $temp = "/a/b/c/d";
my $upDirectory = dirname( $temp );

這將返回“ / a / b / c”。 但是我只需要“ c”。 我必須將其與字符串進行比較，以確定它是否是正確的目錄。

除了在“ /”上分割以外，還有其他方法嗎？ 我不想使用這個。 Perl代碼必須在多個平台上使用。 可以幫助splitdir嗎？

Answer 1

當然，有很多方法可以實現，但是如果您主要關注的是到其他平台的可移植性，那么File :: Spec可能是一個合理的選擇。 尋找splitpath和splitdir 。

Answer 2

強制Path::Class解決方案：

use Path::Class qw(dir);
dir('/a/b/c/d')->parent->dir_list(-1)
# expression returns 'c'