पर्ल टेक्स्ट का उपयोग कर विशेष वर्णों वाले फ़ील्ड को पार्सिंग :: सीएसवी

Question

मैं Text::CSV मॉड्यूल का उपयोग कर रहा हूं ताकि टैब से अलग मूल्य फ़ाइल से विभिन्न फ़ील्ड में लाइनों को पार्स किया जा सके।

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; 

ऊपर मेरी कोड के महत्वपूर्ण भागों में से कुछ है:

तार में विशेष वर्ण के उदाहरण

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

मेरे कोड के रूप में नीचे चला जाता है कर रहे हैं। इस प्रकार त्रुटि मैं मिलता है:

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