相关疑难解决方法(0)

使用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;
    # ...
}