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

【问题标题】：Getting first line of file as argument of script in Perl在 Perl 中获取文件的第一行作为脚本的参数
【发布时间】：2013-04-26 14:56:17
【问题描述】：

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

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

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

【问题讨论】：

【解决方案1】：

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

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

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

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

【讨论】：