Perl 讀取乙個目錄下的所有檔名

如果你想用perl讀取乙個目錄下的所有檔名，你應該怎麼辦呢？一般來講，我喜歡用兩種方法。

第一種方法，直接用readdir來讀取目錄控制代碼。

下面展示一些內聯**片。

use warnings;

use strict;
my $dir =
"./test"
;my $file;
my @dir;
opendir
(dir
, $dir) or die "can't open the directory!"
;@dir = readdir dir
;foreach $file
(@dir)
else
}

python 讀取乙個目錄下的所有目錄和檔案

coding utf 8 usr bin env python import os allfilenum 0 def printpath level,path global allfilenum 列印乙個目錄下的所有資料夾和檔案 所有資料夾，第乙個欄位是次目錄的級別 dirlist 所有檔案 fil...

Python讀取乙個目錄下的所有檔案

usr bin python coding utf8 import os allfilenum 0 defprintpath level,path global allfilenum 列印乙個目錄下的所有資料夾和檔案 所有資料夾，第乙個欄位是次目錄的級別 dirlist 所有檔案 filelist ...

Python讀取乙個目錄下的所有檔案

usr bin python coding utf8 import os allfilenum 0 defprintpath level,path global allfilenum 列印乙個目錄下的所有資料夾和檔案 所有資料夾，第乙個欄位是次目錄的級別 dirlist 所有檔案 filelist ...