如何检索给定目录的文件夹名称？

Question

我的脚本中有这个目录路径c:/server/ the /BPS_DATA/THE_1，我需要检索比这个目录高两个目录的文件夹名称。

在我的示例中，我需要检索

我尝试使用fileparse的

my($datapath) = "c:/server/THE/BPS_DATA/THE_1"; 
print " datapath is: $datapath\n";

my($filename, $bpsPath, $suffix) = fileparse($datapath);

这里它返回c:/server/THE/BPS_DATA/

有什么建议吗？

Answer 1

use Path::Class qw( dir );
say dir('c:/server/THE/BPS_DATA/THE_1')->parent->parent;

等等，我看你只是想要“那个”？

use Path::Class qw( dir );
say dir('c:/server/THE/BPS_DATA/THE_1')->parent->parent->basename;

或

use Path::Class qw( dir );
say( (dir('c:/server/THE/BPS_DATA/THE_1')->dir_list)[-3] );