while(<STDIN>)

一定要小心這點(diǎn)。如果你不知怎么回事地得到了假值（如：空行），你的文件可能 停止處理了。假如你在處理文件讀?。ǔ切薷牧?$/），這種事一般不會(huì)發(fā)生， 但卻可能發(fā)生。

你更喜歡這樣運(yùn)行：

while (readdir(DIR)) {

假設(shè)你有文件名為?0?的話，那么程序?qū)⑼Ｖ梗也粫?huì)繼續(xù)處理文件。

更合適的?while?循環(huán)看起來(lái)像這樣：

while ( defined( my $line = <STDIN> ) ) {
while ( defined( my $file = readdir(DIR) ) ) {