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函数的参数，以便移动到文件内的某个位置上。