Perl周遊目錄

環境為windos，需要注意的兩點：

1、預設activePerl下的采用的編碼是gbk，是以需要将字元串轉為gbk才不會顯示亂碼

2、周遊檔案目錄時，需要排除特殊的目錄.和..

完整的代碼：

運作效果圖：