$ directory =
$ directory = $ ARGV[0]；#定義要遍歷的目錄，默認為腳本所在的目錄。
@ files = q { }；
系統“觸摸臨時文件”；#創建壹個臨時文件來存儲所有文件和目錄信息。
系統”查找。/$ directory & gt；& gt臨時文件"；#將信息導入臨時文件
open(DAT，temp_files) || die("無法打開temp_files！");
@ files = & ltDAT & gt；#將信息復制到數組文件中
系統“rm臨時文件”；
Foreach $each_row(@files) #輸出數組文件的內容。
{
打印“$ each _ row”；
}
#假設腳本保存為run.pl，如果您想在運行時遍歷/home/usr中的目錄和文件，那麽
run.pl home/usr
如果您只想遍歷目錄，那麽
系統”查找。/$ directory & gt；& gt臨時文件"；
它可能會更改為
系統”查找。/$ directory-type d & gt；& gt臨時文件"；