Perl遍历目录下所有文件

最新推荐文章于 2023-06-26 21:17:18 发布

Suese

最新推荐文章于 2023-06-26 21:17:18 发布

阅读量2.8k

点赞数

分类专栏： Perl 文章标签： perl file path

Perl 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

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);