perl中seek函數的用法

seek 設定檔案的當前位置！

當一個檔案非常大時可以從指定位置讀起。
seek FILEHANDLE,POSITION,WHENCE

成功返回真，失敗返回假。
POSITION 是讀入的新位置（位元組）。
WHENCE有3個值，0表示新位置是POSITION,1表示當前位置加上POSITION，2表示檔案尾加上POSITION
例如：從file.txt的12位元組開始讀起並列印出來。
open (FILEHANDLE,"<file.txt") or die "cannot open file.txt";
seek FILEHANDLE,12,0;
while (<FILEHANDLE>){
print;
}
close (FILEHANDLE);

tell函數能針對常規檔案返回其檔案控制代碼的當前位置，該位置可作為調用seek函數的參數，以便移動到檔案內的某個位置上。

參考(點擊此處)