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

Question

我的脚本中有这个目录路径 c:/server/THE/BPS_DATA/THE_1，我需要检索文件夹名称，它是上面两个目录。

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

我用 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;

哦等等，我看到你只是想要“THE”？

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