perl - 在 Perl 中获取文件的第一行作为脚本的参数

Question

所以，我需要取出文件的第一行，然后将其信息用于某些目的。另外，我需要从同一个文件中获取剩余的行，并使用第一行的信息来做某事。我在教科书上试过这个：

while (defined ($lines = <>))
    {
      #do something
    }

如何在 Perl 中从中提取第一行？.. 我是编程新手，任何建议都会有所帮助。

Answer 1

只需在循环开始之前阅读第一行：

my $first_line = <>;
while (my $line = <>) {
    # do whatever you like with $first_line and $line
}

如果您想要数组中的所有剩余行，则根本不需要循环：

my ($first_line, @lines) = <>;