使用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;
# ...
}
解决方法
给定目录路径,然后将
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);
# ....
}