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