Shell Programming and Scripting

$ awk 'FNR==NR{A[$1]; next}END{for(i in A)print i }' input
55
066

$ awk 'FNR==NR{A[$1+0]; next}END{for(i in A)print i}' input
55
66

# string
$ cat <<eof | awk 'FNR==NR{A[$1]; next}END{for(i in A)print i }'
text
12
eof

text
12

# Numeric
$ cat <<eof | awk 'FNR==NR{A[$1+0]; next}END{for(i in A)print i }'
text
12
eof

12
0     -----> text is treated as 0 here

#!/usr/bin/env perl
use strict;
use warnings;

while(<>){
	my @sp = split(/,/ , $_);
	$sp[4] = "77\n" if $sp[2] == "66" ;	
	print join(",", @sp); 
}

awk 'FNR==NR{A[$1+0]; next} $3+0 in A{$5=replace}1' replace=77 FS=, OFS=, input.txt file

3,5,066,K,77
3,5,066,M,77
6,9,066,J,77
1,2,33,C,B 
1,2,33,H,M
4,8,155,H,P
5,7,44,N,U

awk 'FNR==NR{A[$1+0]; next} !($3+0 in A){p=p $0 ORS; next} {$5=replace}1 END{printf "%s",p}' replace=77 FS=, OFS=, input.txt file

awk '
  FNR==NR{
    A[$1+0]
    next
  }
  !($3+0 in A){
    p=p $0 ORS
    next
  }
  {
    $5=replace
  }
  1 
  END{
    printf "%s",p
  }
' replace=77 FS=, OFS=, input.txt file

$ awk 'FNR==NR{A[$1+0]; next}{if($3+0 in A){$5=replace;print}else{last[++i]=$0}}END{for(j=1;j<=i;j++)print last[j]}' replace=77 FS=, OFS=, input file