perl 遍历文件夹，获取全部文件

标签：scan   文件   argv   htm   dex   文件夹   txt   usr   for   

main

#!/usr/bin/perl
my ($path) = @ARGV;

sub scan_file{
    my @files = glob(@_[0]);
    foreach (@files){
        if(-d $_){
            my $path = "$_/*";
            scan_file($path);
        }elsif(-f $_){
            print "文件 $_\n";
        }
    }
}
scan_file($path);

执行脚本

λ perl main "./*"
文件 ./ajanuw.txt
文件 ./dist/bundle.html
文件 ./main
文件 ./src/css/index.css
文件 ./src/index.html
文件 ./text.txt

perl 遍历文件夹，获取全部文件

标签：scan   文件   argv   htm   dex   文件夹   txt   usr   for   

原文地址：https://www.cnblogs.com/ajanuw/p/9275659.html