我正在使用该Text::CSV
模块将行解析为制表符分隔值文件中的各个字段。
字符串中的特殊字符的示例是
"CEZARY Å?UKASZEWICZ, PAWEÅ? WIETESKA","BÜRO FÜR"
我的代码如下:
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;
以上是我的代码的一些重要部分。我得到的错误如下:
cvs_xs error : 2026 - EIQ - Binary Character inside quoted field, binary off @pos 15