Perl的经典用法:读入多个记录
时间：2007-03-09 来源：darrenshen
http://www.8esky.com/cms/Site/Article/wlbch15/perl408/51847.html
如果你调用，返回文件中剩余的记录。如果你处于文件尾，则返回空表：
|
@records = ; if (@records) { print "There were ", scalar(@records), " records read.\n"; } |
在下面的一步中，进行赋值和测试两项工作：
|
if (@records = ) { print "There were ", scalar(@records), " records read.\n"; } chomp() 也可适用对数组操作： @records = ; chomp(@records); 对于任何表达式，都可以进行chomp 操作，故你可以在下面的一步中这样写： chomp(@records = ); |
什么是记录？
记录的缺省定义为：“行”。
记录的定义由$/ 变量控制的，该变量存放所输入的记录的分隔符，因为换行符 字符(根据定义！)是用来分隔行的，故其缺省值为串“\n”。
例如，你可以用任何你想要替换的符号来代替“\n”。
$/ = ";";
$record = ; # 读入下一个用分号分隔的记录
$/可以取其它两个有趣的值：空串("") 和undef。
相关阅读 更多 +
