在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) = <>;