Shell Programming and Scripting

#!/bin/sh
for f in `cat properities.txt`
do
        grep -w "$f" properities1.txt
        if [ $? -eq 0 ];then
        sed '/'$f'/d' properities1.txt > out.lst
        mv out.lst properities.1txt
        break;else
                grep -w $f properities2.txt
                if [ $? -eq 0 ];then
                sed '/'$f'/d' properities2.txt > out.lst
                mv out.lst properities2.txt
                break;else
                echo "$f - Not present in any of the properities file"
                sed '/'$f'/d' properities2.txt > out.lst
                mv out.lst properities2.txt
                break;fi;fi;
done

#!/usr/bin/perl
my ($f1, $f2, $f3) = ("properties.file", "properties1.txt", "properties2.txt");
sub load {
        open(F, "< $_[0]") or die "Could not open file $_[0]: $!\n";
        $_[1]->{(split(/=/, $_))[0]} = (split(/=/, $_))[1] foreach(<F>);
}
load($f1, \%f1); load($f2, \%f2); load($f3, \%f3);
foreach(keys %f1) {
        print "$_ Not found in $f2 and $f3\n" unless( (exists($f2{$_})) || (exists($f3{$_})) );
}