如何在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'