seek function

语法： seek FILEHANDLE, OFFSET, WHENCE  或  seek(FILEHANDLE, OFFSET, WHENCE)

seek 文件句柄，偏移量，起点位置。

WHENCE 有三个数值：0， 1， 2：

0文件的开始；

1当前位置；

2文件的尾部。

当然WHENCE 为1或2时，OFFSET可以为负值。

举例：

- - -DATA -- - -

aaa bbb ccc
ddd eee 

-- CODE1 - -

open(F, "+<", "C:/Users/liuweic/Desktop/seek.txt") or die "can't open the file:$!";

while(<F>){
	print;
}

close(F);

- - RESULT 1- -

aaa bbb ccc
ddd eee 

- - CODE2 - -

#!usr/bin/perl -w

open(F, "+<", "C:/Users/liuweic/Desktop/seek.txt") or die "can't open the file:$!";

seek F,5,0;
while(<F>){
	print;
}

close(F);

- - RESULT- -

bb ccc
ddd eee 

说明：seek 与 tell function 要结合使用，威力更大。

注意：转载或复制本文，请注明出处和作者，作者：No. Liu