Shell Programming and Scripting

#!/bin/bash
while read line
do
        echo "line=$line"
        param4=$(echo $line | cut -d" " -f4)
        echo "param4=$param4"
done

A B C D E F
"A A" B C D E F
A "B B" C D E F
A B "Hi there" D E F
A B C "Lots of words" E F
A B C D "E E E E E E E E" F
A B C D E "F F"

$ cat sample.dat
A B C D E F
"A A" B C D E F
A "B B" C D E F
A B "Hi there" D E F
A B C "Lots of words" E F
A B C D "E E E E E E E E" F
A B C D E "F F"
$ perl -ne 'my @x=split(/ /); for (0..$#x) {
     if ($x[$_] !~ /"/ && $a != 1) {print $x[$_] . ","; }
  elsif ($x[$_] =~ /^"/) { $x[$_] =~ s/"//g; print $x[$_] . " "; $a=1; }
  elsif ($x[$_] !~ /"$/ && $a == 1) { print $x[$_] . " "; }
   else { $x[$_] =~ s/"//g; print $x[$_] . ","; $a=0 } } ' sample.dat > sample.tmp
$ 
$ sed 's/^,//' sample.tmp | sed '$d' > sample.csv
$ rm sample.tmp
$
$ cat sample.csv
A,B,C,D,E,F
A A,B,C,D,E,F
A,B B,C,D,E,F
A,B,Hi there,D,E,F
A,B,C,Lots of words,E,F
A,B,C,D,E E E E E E E E,F
A,B,C,D,E,F F
$

param4=$(echo $line | awk -F, '{print $4}')

while read line
do
  eval set -- "$line"
  echo "$4"
done < infile

print4() 
{ 
  echo "$4"
}

while read line
do
  eval print4 "$line"
done < infile

while read line
do
  eval A=($line)
  echo ${A[3]}
done < infile

C
H H

while read line
do
  eval set -- "$line"
  echo "$4"
done < infile

# set a b 
# echo $1
a
# echo $2
b

set -- 2 F G "H H" I J