Perl获取父文件夹名称

发布时间：2020-12-15 21:59:43 所属栏目：大数据来源：网络整理

导读：使用File :: Find获取父目录的名称的解决方案.我知道如何只获取文件名或只有目录路径,但是我不知道如何为最后一个包含目录执行此操作. 例如,如果目录是/dir_1/dir_2/dir_3/…/dir_n/*.txt,我需要获

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!