perl split a string on "," [duplicate] - regex

Question

This question already has answers here:
How do I efficiently parse a CSV file in Perl?
(6 answers)
Closed 8 years ago.
I am trying to split several hundred lines read from a CSV file on ,. E.g.:
"Acme services","Sesame street","zip","0,56","2013-10-21"
"Black adder, intra-national Association","shaftsville rd","zap code","0,50","2014-10-14"
etc.
I could split the first row on ,, but this would not work for the second row. However, if I split on , then I would trap these cases. I could then remove the " using simple regex (e.g. $col[i] =~ s/\"+//g)
I have tried #cols = split(/\",\"/,$line), and I've tried split('","',$lines) and various variations, but every time, I get the full $line in $col[0], with $cols[1:n] as empty.
Any help would be much appreciated! Thanks.

Answer 1

Why not use Text::CSV. This will take care of edge cases where you have commas in values and all sorts of other problems,
from the cpan page
use Text::CSV;
my #rows;
my $csv = Text::CSV->new ( { binary => 1 } ) # should set binary attribute.
or die "Cannot use CSV: ".Text::CSV->error_diag ();
open my $fh, "<:encoding(utf8)", "test.csv" or die "test.csv: $!";
while ( my $row = $csv->getline( $fh ) ) {
$row->[2] =~ m/pattern/ or next; # 3rd field should match
push #rows, $row;
}
$csv->eof or $csv->error_diag();
close $fh;
$csv->eol ("\r\n");
open $fh, ">:encoding(utf8)", "new.csv" or die "new.csv: $!";
$csv->print ($fh, $_) for #rows;
close $fh or die "new.csv: $!";
EDIT worked example assuming two given lines are in a.txt
use strict;
use Text::CSV;
my #rows;
my $csv = Text::CSV->new ( { binary => 1 } ) # should set binary attribute.
or die "Cannot use CSV: ".Text::CSV->error_diag ();
open my $fh, "<:encoding(utf8)", "a.txt" or die "a.txt: $!";
while ( my $row = $csv->getline( $fh ) ) {
foreach(#$row){
print "$_\n";
}
print "\n";
}
$csv->eof or $csv->error_diag();
close $fh;
gives
Acme services
Sesame street
zip
0,56
2013-10-21
Black adder, intra-national Association
shaftsville rd
zap code
0,50
2014-10-14