如果你調用,返回文件中剩余的記錄。如果你處文件尾,則返回空表:
|
@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。
(http://www.fanqiang.com)
進入【