perl – 获取给定路径下的目录名称

发布时间：2020-12-15 23:31:39 所属栏目：大数据来源：网络整理

导读：我试图获取给定路径下所有第一级目录的名称. 我试图使用File::Find但有问题. 有人可以帮助我吗？解决方法使用-d文件检查运算符： #!/usr/bin/perluse strict;use warnings;use autodie;my $path = $ARGV[0];die "Please specify which directory to search

我试图获取给定路径下所有第一级目录的名称.

我试图使用File::Find但有问题.

有人可以帮助我吗？

解决方法

使用-d文件检查运算符：

#!/usr/bin/perl

use strict;
use warnings;
use autodie;

my $path = $ARGV[0];
die "Please specify which directory to search" 
    unless -d $path;

opendir( my $DIR,$path );
while ( my $entry = readdir $DIR ) {
    next unless -d $path . '/' . $entry;
    next if $entry eq '.' or $entry eq '..';
    print "Found directory $entryn";
}
closedir $DIR;

（编辑：李大同）

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