perl递归整个文件夹内所有子目录以及子文件

最新推荐文章于 2023-12-09 20:56:42 发布

zyj0oo0

最新推荐文章于 2023-12-09 20:56:42 发布

阅读量1.1k

点赞数 2

CC 4.0 BY-SA版权

分类专栏： perl 文章标签： perl

本文链接：https://blog.csdn.net/zyj0oo0/article/details/120976333

perl 专栏收录该内容

4 篇文章

订阅专栏

本文档展示了如何使用Perl脚本逐级扫描指定目录，并过滤出以log结尾的文件。通过递归调用和正则表达式实现文件筛选功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

废话不多说，直接上代码：

#！/usr/bin/perl -w

my $my_dir = "$ENV{'PWD'}";  ## 获取当前目录，用户可以自定义自己的目录


print"********************\n";
print"$my_dir\n";
print"********************\n";

my $path = $my_dir;


sub scan_file
{
    my @files = glob(@_[0]); #### 获取函数的第一个参数
    foreach(@files)
    {
        if(-d $_)
        {
            my $path = "$_/*";
            scan_file($path); ### 递归调用
        }
        elsif(-f $_)
        {
            if($_ =~ /log$/)  ### 我在这里过滤了所有结尾为log的文件
            {
                print "file is : $_\n";
            }
        }
    }
}

scan_file($path);