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

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

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

有人可以帮助我吗？

解决方法 使用-d文件检查运算符：

#!/usr/bin/perluse 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 $entry\n";}closedir $DIR;

总结

以上是内存溢出为你收集整理的perl – 获取给定路径下的目录名称全部内容，希望文章能够帮你解决perl – 获取给定路径下的目录名称所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。