Analisi dei campi con caratteri speciali utilizzando Perl Testo :: CSV

Question

Sto utilizzando il modulo Text::CSV per analizzare le righe in vari campi da un file con valori separati da tabulazioni.

Esempi di caratteri speciali nelle stringhe sono

"CEZARY Å?UKASZEWICZ, PAWEÅ? WIETESKA","BÜRO FÜR" 

Il mio codice va come di seguito:

my $file = $ARGV[0] or die "Need to get TSV file on the command line\n"; 

my $csv = Text::CSV->new({sep_char => "\t"}); 

open(my $data,'<', $file) or die "Could not open '$file' $!\n"; 


while (my $line= <$data>) { 

     if($csv->parse($line)){ 
      my @curr_arr = $csv->fields(); 

     } 
} # end of while 

close $data; 

Quanto sopra è alcune delle parti importanti del mio codice. L'errore che ottengo è il seguente:

cvs_xs error : 2026 - EIQ - Binary Character inside quoted field, binary off @pos 15 

Answer 1

my $csv = Text::CSV->new({ binary => 1, sep_char => "\t"});