Perl遍历目录下所有文件
发布时间:2020-12-16 00:28:35 所属栏目:大数据 来源:网络整理
导读:use strict;use Cwd;sub get_dir_file{ my $path = shift @_;# print $path; opendir(TEMP,$path) || die "open $path fail...$!"; my @FILES = readdir TEMP; for my $filename (@FILES) { if ($filename eq "Thumbs.db" || $filename eq "." || $filename
use strict; use Cwd; sub get_dir_file { my $path = shift @_; # print $path; opendir(TEMP,$path) || die "open $path fail...$!"; my @FILES = readdir TEMP; for my $filename (@FILES) { if ($filename eq "Thumbs.db" || $filename eq "." || $filename eq ".." || $filename eq ".svn" || $filename eq "get_file_list.pl") { } else { if (-d "$path/$filename") { #print "$path/$filename"."n"; get_dir_file("$path/$filename"); } else { write_to_file("$path/$filename"); } } } closedir(TEMP); } sub write_to_file { my $text = shift @_; open(STOREFILE,">>file_list.txt"); print "$textn"; syswrite(STOREFILE,"$textrn"); close(STOREFILE); } unlink "file_list.txt"; my $curDir = getcwd; get_dir_file($curDir); 遍历目录并打印目录下所有文件名 my $curDir = getcwd;获取当前目录 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |