在perl中从第二行读取文件直到结束

Question

我有一个包含这么多行的文件。我想丢弃第一行和 试图从第二行读取文件直到结束，但在谷歌上没有得到足够的帮助。 在这种情况下请帮助我。

下面是我试图提取 csv 文件的第 4 列和第 5 列的代码，但是它也包括我不想要的标题的第一行。

我的代码应该只给我值而不是标题。从第二行开始。

foreach my $inputfile (glob("$previous_path/*Analysis*.txt")) {
open(INFILE, $inputfile) or die("Could not open  file.");
foreach my $line (<INFILE>){
my @values = split(',', $line); # parse the file
my $previous_result = $values[5];
my $previous_time = $values[4];
print $previous_result,"\n";
print $previous_time,"\n";
push (@previous_result, $previous_result);
push (@previous_time, $previous_time);
    }
close(INFILE);
}

Answer 1

跳过第一行，然后阅读其余部分。

<>;                # read and discard a line
while (<>) {       # loop over the other lines
    print $_
}

更新：在你 edited the question 之后，你想要一些完全不同的东西，

在 Perl 中读取 CSV 文件

这是一个完全不同的问题，你应该首先问什么。答案是使用已建立的库，例如CSV::Slurp

Answer 2

只需跳过行号 ($.) 1，可能使用 next，如下所示：

while (<>) {
    next if ($. == 1);
    print $_;
}

Live demo.

Answer 3

你可以在读取文件时跳过第一行

例如

open(IN,"cat filename|tail -n +2|") || die "can not open file :$!";
while(<IN>){
     //process further
}
close(IN);