Shell Programming and Scripting

#!/bin/bash -

# @(#) user2    Demonstrate one-liner perl solution in shell script.

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

for FILE in data[1-3]
do
echo
echo "-----"
nl $FILE
if perl -0000 -ne 'exit 0 if m/United\nChampions\nRonaldo\n/; exit 1;' $FILE
then
  echo " Hit!"
else
  echo " Oh, too bad, a miss :("
fi
done

exit 0

% ./user2

(Versions displayed with local utility "version")
Linux 2.6.11-x1
GNU bash 2.05b.0
perl 5.8.4
nl (coreutils) 5.2.1

-----
     1  United
     2  Champions
     3  Liverpool
     4  Losers
     5  Torres
 Oh, too bad, a miss :(

-----
     1  United
     2  Champions
     3  Ronaldo
     4  Liverpool
     5  Losers
     6  Torres
 Hit!

-----
     1  United
     2  Champions
     3  Liverpool
     4  Losers
     5  Torres
     6  Ronaldo
 Oh, too bad, a miss :(

open(F,"<file") or die "cannot open file:$!";
@data=<F>;
close(F);
for($i=0;$i< length(@data);$i++){  
  if ($data[$i] == "United" and $data[$i+1] == "Chanmpions" and $data[$i+2] =="Ronaldo" ) {
    #do email
    print "do...email ..";
    break
  }  
}