如何从头开始读取 CSV？

Question

use Text::CSV_XS;

my $csv = Text::CSV_XS->new;
open my $fh, "test.csv" or die "test.csv: $!";

while (my $row = $csv->getline($fh)) {
    my @fields = @$row;
    if ($fields[0] eq "A1") {
        print "Found A1", "\n";
        last;
    }
}
# now start searching the CSV again

如果我使用Text::CSV_XS 浏览了一些 CSV，我该如何从头开始？有没有办法将指针/窗口返回到文件的开头？

Answer 1

use Fcntl qw( SEEK_SET );

seek($fh, 0, SEEK_SET);

您也可以重新打开文件。