Shell Programming and Scripting

Cat Pattern.txt

Ram
Shyam
Mohan
Jhon

2. Content.txt

Cat Content.txt
1@GU00450012@Ram   @@@@ bla1  lba2.
2@GU11950004@David @@@@ uss  Ram 
3@GU11950004@Shyam @@@@ uss   rupa
etc etc

grep -F -f pattern.txt content.txt

2@GU11950004@David @@@@ uss  Ram

NR==FNR

#!/bin/sh

#awkcode=`sed 's,\(.*\),$1 ~ /\1/ { print $0 },' <Pattern.txt`
awkcode=`sed 's,\(.*\),$1 ~ /@\1$/ { print $0 },' <Pattern.txt`

awk "
$awkcode
" <Content.txt

8@XXXXXXXX@Masters @@@@ blah masters
8@XXXXXXXX@McMasters @@@@ blah mcmasters

awk '
FNR==NR {                     # prevents loading Content.txt into array s   
    s[$0]                     # load Pattern.txt file into array s
    next                      # move to process next line of Pattern.txt
}
{
    for (p in s){             # iterate each pattern
        if(match($1, p)){     # check pattern for match against first field
            print             # print record if match is found
            next              # stop pattern iteration for this record, match was found already
        }
    }
}' Pattern.txt Content.txt

#!/usr/bin/perl

# search.pl
# Perl facilities to help avoiding errors
use strict;
use warnings;

# files names to obtain from command line
my $pattern_file = shift or die;
my $context_file = shift or die;

# open pattern file for read
open my $fh, '<', $pattern_file or die;
# load pattern file into an array
my @patterns =<$fh>;
# dismiss patterns file handle
close $fh;
# remove the newline at end of record
chomp(@patterns);

# open context file for read
open $fh, '<', $context_file or die;
# iterate line by line through the context file
while(<$fh>) {
    # obtain the first field
    my ($field) = split;
    # search field for pattern; move to next line if match found
    for my $p (@patterns) {
        $field =~ /$p/ and print and next;
    }
}
# dismiss context file handle
close $fh;

sed -n -e '/\@{sed -e '1p' pattern.txt}/p' content.txt

sed -e '/<TEXT1>/{r File1' -e 'd}' File2

        sed -n '1p' < pattern.txt | xargs -I output sed -n '/\@output/p' content.txt

sed  's/^/^[^ ]*/;s/$/ /' pattern | grep -f- content