while(){

#$_每次為文件中的一個(gè)記錄

}

在Perl5.004_04中，我們可以這樣做：

while($record=){

#$record每次為文件中的一個(gè)記錄

}

defined()將自動(dòng)加上，在Perl5.004_04以前的版本中，該命令給出一個(gè)警示。要了解所用的Perl版本，可在命令行下打入：

perl-v

一旦我們讀出了一個(gè)記錄，通常打算去掉記錄分隔符，(缺省值為換行符字符)：

chomp($record);

Perl4.0版本僅有chop()操作，去掉串的最后一個(gè)字符,不管該字符是什么。chomp()沒(méi)有這么大的破壞性，如果有行分隔符存在，它僅去掉行分隔符。如果你打算去掉行分隔符，就用chomp()來(lái)代替chop()。