如何在Perl中读取、分析、然后“取消读取”并重新读取输入流的开头?

如您所说,如果文件句柄可能是STDIN,则不能使用 seek

my @lines;

while (<$file>) {
  push @lines, $_;
  last if @lines == 500;
}

... # examine @lines to determine format

while (defined( $_ = @lines ? shift @lines : <$file> )) {
  ... # process line
}

记住,你需要一个明确的 defined 在这种情况下,因为 对某些人 while 循环不适用于此更复杂的表达式。

是 一 CPAN module unread 方法 IO::Handle 上课。然而,它的警告让人有些谨慎。我会仔细评估它的适用性。

如果您真的只需要保存500行(每行都很短),那么这个模块就足够了;它的示例确实使用了 STDIN

<> 运算符导致打开和读取多个不同的文件,然后我不知道您将能够备份到与当前打开的文件不同的文件。

标准物质 .

if (@ARGV == 0 && -t STDIN) {
    # select one or the other of the next two lines:

    # opt 1: emit warning 
    warn "$0: reading stdin from /dev/tty\n";

    # opt 2: populate @ARGV
    @ARGV = grep { -f && -T } <*>;  # glob plain textfiles

 }

在上面的第二种情况中,默认为当前目录中的所有纯文本文件,还应该决定如果 grep 生成空列表。

@ARGV 到 "." 相反,这样程序默认为进程的当前工作目录。