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