UNIX for Beginners Questions & Answers

-bash-3.00$ vi infile3.csv
"infile3.csv" [New file] 
LKHYA_AMDR2:1-0-6-22,
MFYSLKHYA_AMDR2:1-0-6-23,
MFYSLKHYA_AMDR2:1-0-7-1,
~
~
~
-bash-3.00$ 
-bash-3.00$ /usr/xpg4/bin/grep -f infile3.csv EP-ports-faults_20161218.csv > outfile3.csv

-rw-r--r--   1 motive   other       4012 Dec 20 20:02 outfile3.csv
-rw-r--r--   1 motive   other       4691 Dec 20 20:09 infile4.csv
-rw-r--r--   1 motive   other    223682851 Dec 20 20:10 outfile4.csv
-bash-3.00$

perl searcher.pl EP-ports-faults_20161218.csv

perl searcher.pl EP-ports-faults_201612*.csv

#!/usr/bin/perl

use strict;
use warnings;

sub pattern {
    my $f = shift;
    chomp(my @pat = <$f>);
    join "|", @pat;
}

my $patterns_file = "infile2.csv";
open my $fh, '<', $patterns_file or die;
my $search_pattern = pattern($fh);
close $fh;

my $match_searches = "outfile2.csv";
open my $wfh, '>', $match_searches or die;

while(<>) {
    print $wfh $_ if /$search_pattern/;
}
close $wfh;

$ printf "%s\n" aa bbbb ccc | grep ''
aa
bbbb
ccc

nawk -F, 'NR==FNR { A[$1]; next } ($1 in A)' file1.csv dump