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;#列印檔案列表

 

perl 遞迴地遍曆目錄下的檔案