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

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;

哦等等，我看到你只想要＆＃34; THE＆＃34;？

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] );