Phân tích các trường có ký tự đặc biệt bằng cách sử dụng Văn bản Perl :: CSV

Question

Tôi đang sử dụng mô-đun Text::CSV để phân tích các dòng thành các trường khác nhau từ tệp giá trị được phân tách bằng tab.

Ví dụ về các ký tự đặc biệt trong chuỗi là

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

Mã của tôi diễn ra như dưới đây:

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; 

Trên đây là một số trong những phần quan trọng của mã của tôi. Các lỗi tôi nhận được là như sau:

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"});