पाइप के साथ अल्पविराम के बदलें, लेकिन नहीं अल्पविराम के दोहरे उद्धरण चिह्नों

Question

मैं एक रिकॉर्ड बनाया है कि इस

"BOSW0001","Mr","Wayne","Boswell","Wayne,Jessica & Lyn","31 Baker St" 
"ELLI0007","Mrs","Bronwyn","Elliott","Bronwyn, Paul & Arianne","98A Dandaraga Rd" 
"KENN0001","Mr","Leigh","Kenning","Leigh & Beth,Cole","22 Lake St" 

की तरह लग रहा है में संलग्न मैं अल्पविराम बदले बिना पाइप (|) के साथ अल्पविराम (,) बदलना चाहते हैं

"Leigh & Bethie,Coles" 
"Waynez,Jessy & Lyne" 
"Bronwynie, Paula & Arianne" 

नियमित अभिव्यक्ति या अन्य विधियों का उपयोग करके मैं इसे कैसे कर सकता हूं?

Answer 1

आप एक नियमित अभिव्यक्ति के साथ यह मत करो; आप इसे एक उचित सीएसवी पार्सर के साथ करते हैं। Text::CSV_XS का उपयोग करके एक (अवांछित) उदाहरण यहां दिया गया है - बिज़ में सबसे अच्छा।

use strict; 
use warnings; 

use Text::CSV_XS; 

my $in_file = "whatever.csv"; 
my $out_file = "new.dat"; 

open my $fh, '<', $in_file or die "$in_file: $!"; 
open my $out_fh, '>', $out_file or die "$out_file: $!"; 

my $in_csv = Text::CSV_XS->new; 
my $out_csv = Text::CSV_XS->new({ sep_char => '|', eol => "\n" }); 

while(my $row = $in_csv->getline($fh)) { 
    $out_csv->print($out_fh, $row); 
} 

Answer 2

संदर्भ में अल्पविराम (डबल उद्धरण के बीच) प्रकट होता है उपयोग के बारे में कैसे:

s/","/"|"/g 

Answer 3

बस TIMTOWTDI के लिए, यहां कोर मॉड्यूल Text::ParseWords का उपयोग कर एक उदाहरण है।

#!/usr/bin/env perl 

use strict; 
use warnings; 

use Text::ParseWords 'parse_line'; 

foreach my $line (<DATA>) { 
    print join '|', parse_line(',', 1, $line); 
} 

__DATA__ 
"BOSW0001","Mr","Wayne","Boswell","Wayne,Jessica & Lyn","31 Baker St" 
"ELLI0007","Mrs","Bronwyn","Elliott","Bronwyn, Paul & Arianne","98A Dandaraga Rd" 
"KENN0001","Mr","Leigh","Kenning","Leigh & Beth,Cole","22 Lake St"