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

我的脚本中有这个dir路径c:/server/THE/BPS_DATA/THE_1，我需要检索文件夹名，它比这个路径高两个dir

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

我试着用

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

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

这里它返回c:/server/THE/BPS\u DATA/

有什么建议吗

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

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

或

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

或

---

我不懂PERL，所以我不会回答这个问题，但在大多数其他语言中，我想我会使用拆分方法获取数组单元格中的所有文件夹，然后只删除最后2个单元格，用剩下的内容重建路径…@ikegami:对拼写的粗暴挑剔让我们没有朋友。@Andy Lester，我不懂PERL，所以我不会给出答案，但在大多数其他语言中，我想我会使用拆分方法来获取数组单元格中的所有文件夹，然后扔掉最后两个单元格，用剩下的重建路径…@ikegami:对拼写的粗鲁挑剔让我们没有朋友。@Andy Lester，这本不应该用粗鲁的语气读，但应该用幽默的语气读。我想我的答案不完整。修正了。我想我的答案不完整。固定的

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