Perl fonction de recherche

Ce problème a été résolu. Je vous remercie beaucoup.
Ma question et la solution que j'utilise est indiqué ci-dessous.

Question:

open IN, "<./test.txt";
seek(IN,10,0);
read IN, $temp, 5;

seek(IN,20,0);
close(IN);

La situation est que, ma poignée de démarrage à la position 0.
Après la première fonction de recherche, mon fichier poignée à la position 10.
Après que j'ai lu, ma poignée à la position 15.
En ce moment, je cherche encore. Ensuite, le programme cherchera à partir du début ou de la position 20.
Ma question est qu'est-il de toute façon pour moi de faire une recherche dans un fichier, de sorte que je n'ai pas besoin de chercher à partir du point de départ du fichier à chaque fois?

La façon dont je suis l'aide de:

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);
$position=tell(IN); seek(IN,$target_byte-$position,SEEK_CUR); est une drôle de façon de faire seek(IN,$target_byte,SEEK_SET);

OriginalL'auteur sflee | 2013-05-15