使用CSV_XS读取.CSV文件并选择指定的列

Question

我想使用CSV_XS在.csv文件中读取，然后从标题中选择列以匹配存储在阵列中的内容，然后输出新的.csv

use strict; 
use warnings; 




use Text::CSV_XS; 

my $csvparser = Text::CSV_XS->new() or die "".Text::CSV_XS->error_diag(); 
my $file; 
my @headers; 

foreach $file (@args){ 
     my @CSVFILE; 
     my $csvparser = Text::CSV_XS->new() or die "".Text::CSV_XS->error_diag(); 


     for my $line (@csvfileIN) { 
       $csvparser->parse($line); 
       my @fields = $csvparser->fields; 

       $line = $csvparser->combine(@fields); 
     } 

} 

Answer 1

use open ":std", ":encoding(UTF-8)"; 

use Text::CSV_XS qw(); 

# Name of columns to copy to new file. 
my @col_names_out = qw(...); 

my $csv_in = Text::CSV_XS->new({ auto_diag => 1, binary => 1, eol => "\n" }); 
my $csv_out = Text::CSV_XS->new({ auto_diag => 1, binary => 1, eol => "\n" }); 

for (...) { 
    my $qfn_in = ...; 
    my $qfn_out = ...; 

    open(my $fh_in, "<", $qfn_in) 
     or die("Can't open \"$qfn_in\": $!\n"); 
    open(my $fh_out, "<", $qfn_out) 
     or die("Can't create \"$qfn_out\": $!\n"); 

    $csv_in->column_names(@{ $csv_in->getline($fh_in) }); 
    $csv_out->print($fh_out, \@col_names_out); 

    while (my $row = $csv_in->getline_hr($fh_in)) { 
     $csv_out->print($fh_out, @$row{@col_names_out}); 
    } 
}