Help for this page
open IN, "<", $textfile or die "Can't open textfile: $!"; binmode IN; ... while(<IN>) { print IDX, pack "N", tell IN; }
open TEXT, "<", $textfile or die "Can't open textfile: $!"; open IDX, "<", "$textfile.idx" or die "Can't open index file: $!"; ... read IDX, my($buf), 4; seek TEXT, unpack("N", $buf), 0; $line = <TEXT>;