Wymień przecinki z rur, ale nie przecinki ujęty w cudzysłowy

Question

Mam zestaw rekord, który wygląda tak

"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" 

Chcę zastąpić przecinek (,) z rury (|) bez wymiany przecinek wewnątrz:

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

Jak mogę to zrobić, używając wyrażenia regularnego lub innych metod?

Answer 1

Nie rób tego z wyrażeń regularnych; robisz to za pomocą odpowiedniego parsera CSV. Oto przykład (nietestowany) używający Text::CSV_XS - najlepszego w branży.

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

Jak o wykorzystując kontekst, w którym pojawia się przecinek (między cudzysłowami):

s/","/"|"/g 

Answer 3

Właśnie przez wzgląd na TIMTOWTDI, tutaj jest przykład z wykorzystaniem modułu podstawowego 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"