Perl遍历目录下所有文件

概述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)

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 "$text\n";    syswrite(STOREfile,"$text\r\n");    close(STOREfile);}unlink "file_List.txt";my $curDir = getcwd;get_dir_file($curDir);

遍历目录并打印目录下所有文件名

my $curDir = getcwd;

获取当前目录 总结

以上是内存溢出为你收集整理的Perl遍历目录下所有文件全部内容，希望文章能够帮你解决Perl遍历目录下所有文件所遇到的程序开发问题。

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