小编New*_*erl的帖子

我从Perl中的tab标签文件中抓取了一些列.该文件的第一行与其他行完全不同,因此我想尽可能快速有效地跳过该行.

这就是我到目前为止所拥有的.

my $firstLine = 1;

while (<INFILE>){
    if($firstLine){
        $firstLine = 0;
    }
    else{
        my @columns = split (/\t+/);
        print OUTFILE "$columns[0]\t\t$columns[1]\t$columns[2]\t$columns[3]\t$columns[11]\t$columns[12]\t$columns[15]\t$columns[20]\t$columns[21]\n";
    }
}

有没有更好的方法来做到这一点,也许没有$ firstLine？或者有没有办法直接从第2行开始阅读INFILE？

提前致谢!