perl - 从文件中读取一行而不用 Perl 推进行计数器

Question

我希望能够在不增加行计数器的情况下读取“下一行”，以​​便下次发出读取命令时它将读取同一行。

例子:

这是第一行
这是第二行
这是第三行

我希望能够知道第二行说“这是第二行”，但不推进我的计数器，以便我的程序:

print <>;
print unknown_read_command;
print <>;

将打印在屏幕上:

这是第一行
这是第二行
这是第二行

更一般地说，我怎样才能改变指针并将指针移动到我想要的任何方向和任何数量的线？

Answer 1

您可以使用 tell 获取文件句柄的文件位置，并用 seek 设置它:

my $pos = tell $fh;
# ...
seek $fh, $pos, 0 or die "Couldn't seek to $pos: $!\n";