Shell Programming and Scripting

awk 'NR == FNR{a[$1]; next} {t=$3; sub(/^0*/, X, t)} !(t in a)' f1 FS=',' f2

#!/usr/bin/perl

use strict;
use warnings;

die "Usage: $0 File1 File2\n" if @ARGV != 2;

my $file2 = pop;

# Read first file
my %seen;
while (<>) { my @F = split; $seen{$F[0]+0} = 1;}

# Compare 2nd file with first file hash
local @ARGV = $file2;
while (<>) { my @F = split(",",$_); print  if !$seen{$F[2]+0};}

Usage : script.pl file1 file2

971507520787

1,2,0971507520787
2,2,333

awk 'FNR==NR{a[$1];next}!($3+0 in a)' f1 FS=',' f2

1,2,0971507520787
2,2,333

awk '{ sub("\r$", "") } FNR==NR{a[$1];next}!($3+0 in a)' f1 FS=',' f2

1,2,0971507520787
2,2,333

akshay@nio:/tmp$ awk 'FNR==1{++i}{print i==1 ? $1 : $3+0}' f1 FS=',' f2
971507520787
971507520787
333

 awk 'FNR==1{++i}{print i==1 ? $1 : $3+0}' f1 FS=',' f2