遍历当前目录的所有文件
发布时间:2020-12-15 21:10:05 所属栏目:大数据 来源:网络整理
导读:今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 #!perl##Author:caryl##use strict;use Cwd;use File::Spec;use File::Basename;open STDOUT,"filelist.txt" or die "can't open file filelist.txt:
以下代码由PHP站长网 52php.cn收集自互联网 现在PHP站长网小编把它分享给大家,仅供参考 #!perl # #Author:caryl # # use strict; use Cwd; use File::Spec; use File::Basename; open STDOUT,">filelist.txt" or die "can't open file filelist.txt:$!"; my $cwd = getcwd; my @files = <*>; my $file; foreach $file(@files) { my $path = File::Spec->catfile( $cwd,$file ); &filelist($path); } sub filelist { my $path = shift @_; my $file_name = basename $path; if(-d $file_name)#如果是文件,进入遍历 { print "$pathn"; chdir $path or die "can't chdir $path:$!"; my $cwd = getcwd; my @files = <*>; my $file; my $count = 0; foreach $file(@files) { $count++; my $path = File::Spec->catfile( $cwd,$file ); &filelist($path); } if ($count eq @files)#如果当前目录遍历完成,回到父目录 { my $dir_name = dirname $path; chdir "$dir_name.." or die "can't chdir $dir_name..:$!"; } } else { print "$pathn"; } } 以上内容由PHP站长网【52php.cn】收集整理供大家参考研究 如果以上内容对您有帮助,欢迎收藏、点赞、推荐、分享。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |