UNIX for Dummies Questions & Answers

NR==FNR {
split($3,a,","); for (i in a) vl[a[i]] = $1 FS $2 FS vl[a[i]]
}
NR!=FNR {
idx=$1
OFS="\t"
if ( idx in vl ) {
        final[vl[idx]] = final[vl[idx]] OFS idx
        }
}
END {
        for ( z in final ) {
                if (match(final[z],/\t*_ent\t/)) 
                print z OFS final[z]
                }
}

perl -lane 'open F1, "< file1.tab";
for $f1 (<F1>) {
    chomp $f1;
    if ($F[2] =~ /$f1/) {
        open F2, "< file2.tab";
        for $f2 (<F2>) {
            chomp $f2;
            if ($F[2] =~ /$f2/) { print "$F[0]\t$F[1]\t$f1\t$f2" }
        }
        close F2;
    }
}
close F1' bigdb.tab

for U in file1*.tab
do
     V=`basename ${U} .tab`
perl -lane 'open F1, "< ${U}";
for $f1 (<F1>) {
    chomp $f1;
    if ($F[2] =~ /$f1/) {
        open F2, "< file2.tab";
        for $f2 (<F2>) {
            chomp $f2;
            if ($F[2] =~ /$f2/) { print "$F[0]\t$F[1]\t$f1\t$f2" }
        }
        close F2;
    }
}
close F1' CPDB.tab
> ${V}_results.tab
done

sh test.sh