Shell Programming and Scripting

$ cat file1
Switch not possible Error code 1234
Process number 678
 
Log not available Error code 567
Process number 874
 
Log not available Error code 333
Process number 34
 
Log not available Error code 33334234
Process number 012
 
Log not available Error code 333 hello
Process number 012
 
Log not available Error code 567
Process number 8743434
 
Log not available Error code 567
Process number 874 ok

$ cat text.exp 
Error code 1234
Process number 874
Error code 333

$ ./script.sh 
Log not available Error code 33334234
Process number 012
 
Log not available Error code 567
Process number 8743434

$ cat script.sh 
#!/bin/bash
awk '
  BEGIN{
        RS=""; ORS="\n\n"
  }
  NR == FNR{
        split($0, arr, "\n");
  }
  NR != FNR{
        str = $0 "\n"
        for(i=1; i <= length(arr); i++){
          regx = arr[i] "[[:space:]?|\n]"
          if(str ~ regx) break;
        }
        if(i > length(arr)) print $0
  }
' text.exp file1

#!/usr/bin/perl

# @(#) p1       Demonstrate paragraphs into lines, substitution for newline.

use warnings;
use strict;

my($debug);
$debug = 0;
$debug = 1;

my($FAKE_RS) = "%";

# read paragraphs
$/ = "\n\n";

while ( <> ) {
        s/\n/$FAKE_RS/msg;
        print "$_\n";
}

exit(0);

#!/usr/bin/perl

# @(#) p2       Demonstrate read lines, substituting newline.

use warnings;
use strict;

my($debug);
$debug = 0;
$debug = 1;

my($FAKE_RS) = "%";

while ( <> ) {
        s/$FAKE_RS$FAKE_RS/\n/msg;
        s/$FAKE_RS/\n/msg;
        print "$_";
}

exit(0);

#!/bin/bash -

# @(#) s1       Demonstrate pipeline for paragraph matching.

echo
echo "(Versions displayed with local utility \"version\")"
version >/dev/null 2>&1 && version =o $(_eat $0 $1)
set -o nounset
echo

FILE1=data1
FILE2=data2

echo
echo " Data file $FILE1:"
cat $FILE1

echo
echo " Data file $FILE2:"
cat $FILE2

echo
echo " Results:"
./p1 $FILE1 |
tee t1 |
grep -v -f $FILE2 |
tee t2 |
./p2

exit 0

% ./s1

(Versions displayed with local utility "version")
Linux 2.6.11-x1
GNU bash 2.05b.0


 Data file data1:
Switch not possible Error code 1234
Process number 678

Log not available Error code 567
Process number 874

Log not available Error code 333
Process number 34

Log not available Error code 33334234
Process number 012

Log not available Error code 333 hello
Process number 012

Log not available Error code 567
Process number 8743434

Log not available Error code 567
Process number 874 ok

Log not available Error code 999
Process number 777 missing

 Data file data2:
Error code 1234
Error code 333
Process number 874%

 Results:
Log not available Error code 567
Process number 8743434

Log not available Error code 567
Process number 874 ok

Log not available Error code 999
Process number 777 missing

nawk '{
if (NR==FNR){arr[$NF]++}
else{
if (FNR%3==1)
{
        if($NF in arr){flag=1}
        else{t=$0}
}
else if(FNR%3==2){
	if($NF in arr || flag==1){flag=0;next}
        else{print t;print $0}
}
else
        next
}
}' text.exp file

open FH,"<text.exp";
while(<FH>){
	@arr=split(" ",$_);
	%hash=(%hash,$arr[$#arr],$.);
}
close(FH);
open FH,"<file";
while(<FH>){
	@temp=split(" ",$_);
	$t=$temp[$#temp];
	$line=$_ if (!exists($hash{$t}) && $.%3==1);
	if(!exists($hash{$t}) && $.%3==2){
		if(length($line)>0){
			push(@res,$line);
			push(@res,$_);
		}
	}
	if($,%3==0){
		next;
	}
}
foreach (@res){
print;
}
close(FH);