Perl的经典用法:读入多个记录 发表日期：2006-3-5

如果你调用，返回文件中剩余的记录。如果你处于文件尾，则返回空表：

@records=; if(@records){ print"Therewere",scalar(@records),"recordsread.\n"; }

在下面的一步中，进行赋值和测试两项工作：

if(@records=){

print"Therewere",scalar(@records),"recordsread.\n";

}

chomp()也可适用对数组操作：

@records=;

chomp(@records);

对于任何表达式，都可以进行chomp操作，故你可以在下面的一步中这样写：

chomp(@records=);