Shell Programming and Scripting

awk '{gsub("\"[^\"]*\"","");n=gsub(",","");print n}' infile

$ echo 'abc,xyz.com,lmhgdf,"abc, 401 street","tty,stt",45,23,45' | \
sed 's/"[^"]*"//g' | grep -o , | wc -l
       7
$

my $str='abc,xyz.com,lmhgdf,"abc, 401 street","tty,stt",45,23,45,aa,bb,"a,b","a,bb,aaa,ss,,,,,",a,a,a,a';
my @tmp = $str=~/(,)(?=
[^"]*$
|
(?:(?:[^",]*,)*(?:"[^"]*",)*(?:[^",]*,)*)*(?:[^",]+|"[^"]*")$
)/xg;
print $#tmp+1;

perl -MText::ParseWords -nle'
    print parse_line(",",0, $_) - 1;
    ' infile

$ echo 'abc,xyz.com,lmhgdf,"abc, 401 street","tty,stt",45,23,45' | awk -F"," ' { gsub("\"[^\"]*\"",""); print NF-1 } '
7