Perl 获取父文件夹名称

Question

使用 File::Find 获取父目录名称的解决方案是什么？我知道如何仅获取文件名或仅获取目录路径，但我不知道如何为最后一个包含目录执行此操作。

例如，如果目录是 /dir_1/dir_2/dir_3/.../dir_n/*.txt我需要得到'dir_n ' 姓名。

use strict;
use warnings;
use File::Find;

my $dir = "some_path";

find(\&file_handle, $dir); 
sub file_handle {
    /\.txt$/ or return;
    my $fd = $File::Find::dir;
    my $fn = $File::Find::name;
    # ...
}

Answer 1

给定目录路径，然后应用 File::Basename (另一个核心模块)获取目录最后一部分的路径。

use strict;
use warnings;
use File::Find;
use File::Basename;

my $dir = "some_path";

find(\&file_handle, $dir); 
sub file_handle {
    /\.txt$/ or return;
    my $fd = $File::Find::dir;
    my $fn = $File::Find::name;
    my $dir = basename($fd);
    # ....
}