Perl的经典用法:读入多个记录

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

@records=;

if(@records){

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

}

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

if(@records=){

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

}

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

@records=;

chomp(@records);

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

chomp(@records=);

什么是记录？

记录的缺省定义为：“行”。

记录的定义由$/变量控制的，该变量存放所输入的记录的分隔符，因为换行符字符(根据定义！)是用来分隔行的，故其缺省值为串“\n”。

例如，你可以用任何你想要替换的符号来代替“\n”。

$/=";";

$record=;#读入下一个用分号分隔的记录

$/可以取其它两个有趣的值：空串("")和undef

以上就是Perl的经典用法:读入多个记录的内容，更多相关文章请关注PHP中文网（www.php.cn）！