## while` (<STDIN>)`
一定要小心這點。如果你不知怎么回事地得到了假值（如：空行），你的文件可能 停止處理了。假如你在處理文件讀取（除非修改了?`$/`），這種事一般不會發生， 但卻可能發生。
你更喜歡這樣運行：
~~~
while (readdir(DIR)) {
~~~
假設你有文件名為?`0`?的話，那么程序將停止，且不會繼續處理文件。
更合適的?`while`?循環看起來像這樣：
~~~
while ( defined( my $line = <STDIN> ) ) {
while ( defined( my $file = readdir(DIR) ) ) {
~~~
