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）！