如果你調用，返回文件中剩余的記錄。如果你處於文件尾，則返回空表： @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。
