Shell Programming and Scripting

perl -MText::ParseWords -nle'
  $c = 1; print "field", $c++, "=", $_ for parse_line(",",0, $_);
  ' infile

sed -e 's/,\([0-9][0-9]*\)/,"\1"/g' -e 's/^"//g' -e 's/",$//g'  filename | awk -F '","' '{for(i=1;i<=NF;i++)printf("%s%s%s%s%s\n", NR," Field",i,": ",$i)}'

$ cut sample.txt -d'"' -f2
YCEU3600913
YMLU4366413

$ cut sample.txt -d'"' -f4
29P0
42G1

$ cut sample.txt -d'"' -f6
CT
CT

$ cut sample.txt -d'"' -f7 | cut -d"," -f2
20
40

$ cut sample.txt -d'"' -f8
FB
ST

#!/bin/ksh
awk 'BEGIN {FS=","}
{
        $4="\""$4"\"";
        $(NF-2)="\""$(NF-2)"\"";
        $(NF-3)="\""$(NF-3)"\"";
        OFS=","
        print $0 > "tmp"
}' < FILENAME

awk 'BEGIN {FS="\",\""}
{
        sub(/"/,"")
        sub(/",$/,"")
        for(i=1;i<=NF;i++)
                print "Filed"i"="$i
}' <tmp

YMLU4366413 42G1 CT 40 ST 40x8 6,Passive vents at upper 3900 30000 W

% cat infile 
"YCEU3600913","29P0","CT",20,"FB","Platform",2700,28000,"O",
"YMLU4366413","42G1","CT",40,"ST","40x8 6,Passive vents at upper",3900,30000,"W",

% perl -MText::ParseWords -nle'
  print join " ", parse_line(",",0, $_);
  ' infile
YCEU3600913 29P0 CT 20 FB Platform 2700 28000 O 
YMLU4366413 42G1 CT 40 ST 40x8 6,Passive vents at upper 3900 30000 W

% perl -MText::ParseWords -nle'
  print join "\t", parse_line(",",0, $_);
  ' infile      
YCEU3600913     29P0    CT      20      FB      Platform        2700    28000   O       
YMLU4366413     42G1    CT      40      ST      40x8 6,Passive vents at upper   3900    30000   W