Perl：搜索中间目录名

Question

我正在尝试找到一种有效的方法来查找和中间目录名称。例如，我想在以下路径/ x1 / x2 / x3中获取“x2”目录名，给出路径/ x1和名称x3。

注意：我不知道完整路径/ x1 / x2 / x3。我只知道/ x1和名字x3。换句话说，我试图在/ x1路径下搜索子目录x3的父目录。

你能帮忙吗？ 谢谢！

Answer 1

我建议您查看核心File::Spec模块

splitdir类方法可以帮助您

Answer 2

使用 Borodin 的解决方案。但是如果您不想使用模块，请使用/：

拆分路径

my $dir = "/x1/x2/x3";
my $paths = (split "/", $dir)[2];
print $paths, "\n";

输出：

x2