Shell Programming and Scripting

a
d
l
m
r
k

a c d e l m n j
a d l p q r
c p r m
.........
.........

C1match.txt       C1non_match.txt
a                           c
d                           e
l                           n
m                           j

Similarly, 2 files for the next line:
C2match.txt       C2non_match.txt
a                           p
d                           q
l
r

awk ' BEGIN {
        c = 1
} FNR == NR {
        A[$0] = $0
        next
} {
        M_F = "C" c "match.txt"
        N_F = "C" c "non_match.txt"

        for ( j = 1; j <= NF; j++ )
        {
                if ( $j in A)
                        print $j > M_F
                else
                        print $j > N_F
        }
        c += 1
        close(M_F)
        close(N_F)
} ' chap.txt complex.txt

C1match.txt
a
d
l
m

C2non_match.txt
p
q

C1matchC2non_match.txt
a,p
a,q
d,p
d,q
l,p
l,q
m,p
m,q

awk ' FNR == NR {
        A[++j] = $0
        next
} {
        B[$0] = $0
} END {
        for ( i = 1; i <= j; i++)
        {
                for ( v in B )
                {
                        print A[i], B[v];
                }
        }
} ' OFS=, C1match.txt C2non_match.txt

awk     'NR==1          {Pat = "["}
         NR==FNR        {Pat = Pat $1;next}
         FNR==1         {Pat=Pat"]"}
         {for (i=1; i<=NF; i++)
            if ($i~Pat) print $i > "C"FNR"match.txt"
              else      print $i > "C"FNR"nonmatch.txt" }
        ' file1 file2

 
#!/usr/bin/perl
use strict;
my $file1=shift;
my $file2=shift;
my %seen;
open (FH,"$file1") or die "can not open file $file1 - $! \n";
while (<FH>) {
        chomp;
        $seen{$_}++;
}
close(FH);
my @flds;
open (FH2,"$file2") or die "can not open file $file2  - $! \n";
while (<FH2>) {
        my $match="C" . $. . "match.txt";
        my $unmatch="C" . $. . "unmatch.txt";
        open (FM,">$match");
        open (FU,">$unmatch");
        @flds=split;
        foreach (@flds) {
        if (exists $seen{$_} ) {
                print FM "$_\n";
        } else {
                print FU "$_\n";
        }
        }
        close(FM);
        close(FU);
}
close(FH2);

 
perl colmatch.pl chap.txt complex.txt