Shell Programming and Scripting

#/usr/bin/bash

INFILE=${1}

IFS=","

cat ${INFILE} | \
while read A B C ID D
do
  grep "^${ID}" excludes > /dev/null
  if [ ${?} -ne 0 ]
  then
    echo "${A},${B},${C},${ID},${D}"
  fi
done

#/usr/bin/bash

INFILE=${1}

cat ${INFILE} | \
while read LINE
do
  ID=`echo "${LINE}" | cut -f4 -d","`

  grep "^${ID}" excludes > /dev/null
  if [ ${?} -ne 0 ]
  then
    echo "${LINE}"
  fi
done

1111
1512
1113
123

1,55,John,2000,abc
1,55,Jane,1113,abc
1,55,Smit,9565,def
1,55,Phil,123,adf
1,55,John,205480,sdf

#!/usr/bin/perl

my @a, %exclude;
my $file = shift;
open(EXCLUDE_LIST, "< $file") or die;
chomp( @a=<EXCLUDE_LIST> );
close(EXCLUDE_LIST);
@exclude{@a}=@a;

while (<>) {
    print unless exists $exclude{ (split(/,/))[3] };
}

awk -F',' 'NR==FNR{_[$0]=1}NR>FNR&&!_[$4]{print}' exclude infile