Shell Programming and Scripting

code,description,weight,cost,price,qty,category
"A4552","Intel i7 4.60GHz Processor","0.53","250.00","350.00","10"

code,description,weight,cost,price,qty,category
"A4552","Intel i7 4.60GHz Processor","0.53","250.00","350.00","10","CPU Products"

file="CPU Products.csv"
tmpfile=csvfile.tmp
tmpfile1=csvfile1.tmp
category=`basename "$file" .csv`

        cp "$file" $tmpfile
        awk '
        BEGIN {FS=OFS=","; print "code,description,weight,cost,price,qty,category"}
        ($9= "$category") ' $tmpfile > $tmpfile1

        cp $tmpfile1 "$file"

awk '{f=FILENAME;sub("\.csv","",f);$0=$0",\""f"\""}1' "CPU Products.csv"

$ perl -pe 'next if $. == 1; chomp; $ARGV =~ s/\.[^.]+$//; $_ .= qq[,"$ARGV"\n]' "CPU Products.csv"