| Perl的经典用法:读入多个记录 |
| 来源: 作者: 发布时间:2007-04-29
|
|
如果你调用,返回文件中剩余的记录。如果你处于文件尾,则返回空表: @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。
|