这个问题解决了。非常感谢你。 我的问题和我正在使用的解决方案如下所述。 题:
open IN, "<./test.txt";
seek(IN,10,0);
read IN, $temp, 5;
seek(IN,20,0);
close(IN);
情况是,我的句柄将从0位开始。 在第一个搜索功能之后,我的文件句柄将位于第10位。 读完之后,我的手柄将在第15位。 此刻,我再次寻求。然后程序将从头开始或从第20位开始寻找。 我的问题是,无论如何我都要在文件中搜索,这样我每次都不需要从文件的起点进行搜索?
我使用的方式:
use Fcntl qw(SEEK_SET SEEK_CUR SEEK_END); #SEEK_SET=0 SEEK_CUR=1 ...
$target_byte=30;
open IN, "<./test.txt";
seek(IN,10,SEEK_SET);
read IN, $temp, 5;
$position=tell(IN);
seek(IN,$target_byte-$position,SEEK_CUR);
#do what I want
close(IN);
在我们开始之前
如果使用常量SEEK_SET,SEEK_CUR和SEEK_END而不是0,1和2,则会更清楚。
那么你的代码就是
use Fcntl qw( SEEK_SET );
open IN, "<./test.txt";
seek(IN,10,SEEK_SET);
read IN, $temp, 5;
seek(IN,20,SEEK_SET);
close(IN);
顾名思义,它将位置设置为指定值。
所以,
read
之后,档案位置将是15。在视觉上,
+-------------------------- 0: Initially.
| +---------------- 10: After seek($fh, 10, SEEK_SET).
| | +----------- 15: After reading "KLMNO".
| | | +------ 20: After seek($fh, 20, SEEK_SET).
| | | |
v v v v
file: ABCDEFGHIJKLMNOPQRSTUVWXYZ
indexes: 01234567890123456789012345
如果你想寻找相对于你现在的位置,你会使用SEEK_CUR
。
+-------------------------- 0: Initially.
| +---------------- 10: After seek($fh, 10, SEEK_CUR).
| | +----------- 15: After reading "KLMNO".
| | | +- 25: After seek($fh, 10, SEEK_CUR).
| | | |
v v v v
file: ABCDEFGHIJKLMNOPQRSTUVWXYZ
indexes: 01234567890123456789012345