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

#

!/usr/bin/perl -w
usestrict;
use file::spec;
local $\ ="
\n";#
當前模組的每行輸出加入換行符 
my%options;#
目錄路徑
$options = '
/home/jiangyu/src/pl/example';
my@cases
; 
if (-d $options) );
while (@files
) readdir
$dh;#
過濾掉以"."和".."的檔案,即unix下的隱藏檔案
foreach (@_
) 
closedir
$dh;
}#若是檔案直接壓入陣列@cases中
elsif ($files[0] =~ /\.t$/) 
shift
@files
; }
}else
); }
print
$_foreach
@cases;#
列印檔案列表

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

usr bin perl w usestrict use file spec local n 當前模組的每行輸出加入換行符 my options 目錄路徑 options home jiangyu src pl example my cases if d options while files re...

遞迴遍歷目錄下的檔案

關於目錄檔案的分析 lib src vim lib,src,都是目錄檔案,而vim是普通檔案 opendir 返回乙個dir readdir dir 返回乙個dirent 結構的指標 struct dirent long d ino inode number 索引節點號 off t d off of...

Shell遞迴遍歷目錄下檔案

遍歷linux某目錄下的所有檔案 bin bash 1是執行指令碼時，輸入的第乙個引數，這裡指的是使用者希望搜尋的目錄 下面的 是對目錄進行判斷，如果為空則使用指令碼所在的目錄 否則，搜尋使用者輸入的目錄 if z 1 d 1 then echo the directory is empty or ...