Perl指令碼實現遞迴遍曆目錄下的檔案_perl

#!/usr/bin/perl -wuse strict;use File::Spec;local $\ ="\n";#當前模組的每行輸出加入分行符號  my %options;#目錄路徑$options{single_case} = '/home/jiangyu/src/pl/Example';  my @cases;  if (-d $options{single_case}) {#判斷目錄是否存在    my @files;    my $dh;    push(@files, $options{single_case});    while (@files) {      if (-d $files[0]) {#若是目錄執行以下操作        opendir $dh, $files[0] or die $!;#開啟目錄控制代碼,若失敗列印錯誤資訊        @_ = grep { /^[^\.]/ } readdir $dh;#過濾掉以"."和".."的檔案,即UNIX下的隱藏檔案        foreach (@_) {          push(@files, File::Spec->catfile ($files[0], $_));#串連目錄名和檔案名稱形成一個完整的檔案路徑:        }        closedir $dh;      }      #若是檔案直接壓入數組@cases中      elsif ($files[0] =~ /\.t$/) {        push(@cases, $files[0]);      }      shift @files;    }  }  else {    @cases = ($options{single_case});  }print $_ foreach @cases;#列印檔案列表