Perl：使用Text:：csvxs忽略标题

在使用Perl库Text:：csvxs时，我想忽略CSV文件中的标题

是否有比以下方法更好或更合适的方法：

use Text::CSV_XS;

open(my $fh, "<", "file.csv") or die "file.csv: $!"; 
my $csv = Text::CSV_XS->new();

#ignore header
my $row = $csv->getline($fh);

while ($row = $csv->getline($fh)) {  
  #do stuff with the rows... 
}

$csv->column_names( $csv->getline($fh) );

while (my $row = $csv->getline($fh)) {  
   ...
}

使用Text:：csvxs；
打开（my$fh），以下内容会稍微好一些：

# Skip header
$csv->getline($fh);

while (my $row = $csv->getline($fh)) {  
   ...
}

它避免了不正确的作用域、可疑的变量重用和不必要的赋值


或者，您可以使用以下选项：

use Text::CSV_XS;

open(my $fh, "<", "file.csv") or die "file.csv: $!"; 
my $csv = Text::CSV_XS->new();

#ignore header
my $row = $csv->getline($fh);

while ($row = $csv->getline($fh)) {  
  #do stuff with the rows... 
}

$csv->column_names( $csv->getline($fh) );

while (my $row = $csv->getline($fh)) {  
   ...
}

您没有使用传递给
$csv
的额外信息，因此您所做的工作超出了需要，但这是自我记录