Shell Programming and Scripting

awk -F, '{
  gsub("\"","",$1)
  getline name < "B.csv"
  if(name == $0){print "SAME,SAME,SAME,SAME,"; next}
  split(name, a, ",")
  for(i=1;i<=NF;i++) {
    if(a[i]==$i) {
      printf("SAME,")
    } 
    else {
      printf("NOT SAME,")
    }
  }
  print ""
}' A.csv

perl -e '
open(FH1,"< $ARGV[0]") or die ;
open(FH2,"< $ARGV[1]") or die ;
while ( ($f1=<FH1>) && ($f2=<FH2>) ) {
chomp ($f1,$f2) ;
@a=split/,/,$f1;
@b=split/,/,$f2 ;
$end=@a ;
$a[0] =~ s/\"//g;
for ($i=0;$i<$end;$i++) {
        printf "Not_Same," if($a[$i] ne $b[$i]);
        printf "Same," if ($a[$i] eq $b[$i]) ;
              } ;
  print "\n" ;
} ;
' A.csv B.csv

<Content of A.csv>   <Content of B.csv>    <Content of C.csv>

paste -d "\t" A.csv B.csv C.csv  > D.csv