UNIX for Advanced & Expert Users

perl -e'
  my %p;
  open my $PH, "<", shift or die "$!\n";
  $p{$_} = 1 while <$PH>;
  close $PH or warn "$!\n";
  
  while (my $line = <>) {
    for (keys %p) {
      print $line and last if $line =~ /$_/;
      }
    }' pattern_file input_file1 inputfile2 ...

python -c'
from sys import argv

pf = open(argv.pop(1), "r")
pd = {}
for l in pf:
  pd[l] = 1

for fn in argv[1:]:
  f = open(fn, "r")
  for line in f:
    for p in pd:
        if p in line:
	      print line,
	      break
			    
  f.close()
' pattern_file input_file1 input_file2 ...

cat input_file1 input_file2 etc | fgrep -f pattern_file

awk 'NR == FNR { p[$1]; next } $0 ~ p[$2]' pattern_file input_file*

...
000000 abc2344536      46575 0000
000000 89798798798    abc2344536
000000 abc2344555      46575 1234
000000 7777777777     abc2344536
...