perl學習感悟（三）

繼續上一篇，談到目錄文件的遍歷問題一直都是老大難題，用glob方便但有不足，幸虧我終於在上一篇把對readdir的誤會消除後找到了完美的解決方案．sed &file("d://my game"); sub file() {foreach opendir(DIR, $_[0]); foreach my $a (readdir(DIR)) { if ('.' eq $a || '..' eq $a)

>>阅读原文<<