Shell Programming and Scripting

#!/usr/bin/perl

use Text::CSV;
my $csv = Text::CSV->new({allow_loose_quotes=>1});
my $file = "file";
open (CSV, "<", $file) or die $!;
while (<CSV>) {
        if ($csv->parse($_)) {
            foreach my $col ($csv->fields()){
              print $col."\n";
            }
        } else {
            my $err = $csv->error_input;
            print "Failed to parse line: $err";
        }
    }
close(CSV);

# ./test.pl
a
bnn,
dgd
 "sagfh
dj"
ad

awk -F "\"" '{
  for(i=2;i<NF;i+=2) {
    gsub(",", "", $i)
  }
}1' OFS="\"" file

 # awk -F "\"" '{ for(i=2;i<NF;i+=2) {gsub(",", "", $i) }}1' OFS="\"" file
a,"bnn",dgd, "sagfhdj",ad

my $str='a,"bnn,",dgd, "sagfh,dj",ad,"aa,bb,cc",asdf,asdf,"sdaf,asdfsdf,asdff",asdf';
print $str,"\n";
$str=~s/,
(?=
  (
    (?:[^"]*"[^"]*$)
   |
    (?:[^"]*"[^"]*(?:"[^"]*"[^"]*)*[^"]*$)
   )
)/|/xg;
print $str;

a,"bnn,",dgd, "sagfh,dj",ad,"aa,bb,cc",asdf,asdf,"sdaf,asdfsdf,asdff",asdf
a,"bnn|",dgd, "sagfh|dj",ad,"aa|bb|cc",asdf,asdf,"sdaf|asdfsdf|asdff",asdf