[Perl]读取当前目录下的所有文件，包括子目录下的文件

最新推荐文章于 2019-07-27 22:17:57 发布

weixin_34144848

最新推荐文章于 2019-07-27 22:17:57 发布

阅读量1.3k

点赞数

文章标签： python

原文链接：https://my.oschina.net/u/996206/blog/174443

版权

2019独角兽企业重金招聘Python工程师标准>>>

直接上代码，所有文件存在 my @files中

不怕文件夹中带空格， glob会有此问题用!

<!-- lang: perl -->
my $basedir = '.';
my $d;
my @files = ();
my @dirs = ($basedir);
die "error $basedir: $!" unless(-d $basedir);    
while(@dirs){
   $d = $dirs[0];
   $d .= "/" unless($d=~/\/$/);

   opendir folder, $d || die "Can not open this directory";
   my @filelist = readdir folder; 
   closedir folder;
   my $f;
   foreach (@filelist) {
      print $_."\n";
      $f = $d.$_;

      #need to remove . and ..
      if($_ eq "." || $_ eq "..")
      {
          #print "ignore"."\n";
          next;
      }

      push(@dirs, $f) if(-d $f) ;
      push(@files,$f)if(-f $f);
    }
   shift @dirs;
}

转载于:https://my.oschina.net/u/996206/blog/174443