Shell Programming and Scripting

#!/bin/ksh
if [ $# -ne 2 ]
then    echo "Usage: ${0##*/} z1:Number file" >&2
        exit 1
fi
awk -v REQ="$1" '
BEGIN { res = "Request "REQ" not found" }
$0 ~ ".*<z1:Number>" REQ "</z1:Number>.*" {
        keep = 1
} 
/<y1:Status>/ && keep {
        res = "Request "REQ" has " substr($0, index($0, "<y1:Status>") + 11, 6)
        keep = 0
}
END {   print res }' "$2"

#!/usr/bin/env bash

# @(#) s1       Demonstrate reversal of file by lines.

# Utility functions: print-as-echo, print-line-with-visual-space, debug.
# export PATH="/usr/local/bin:/usr/bin:/bin"
pe() { for _i;do printf "%s" "$_i";done; printf "\n"; }
pl() { pe;pe "-----" ;pe "$*"; }
db() { ( printf " db, ";for _i;do printf "%s" "$_i";done;printf "\n" ) >&2 ; }
db() { : ; }
C=$HOME/bin/context && [ -f $C ] && $C tac tail perl sed ./ppt-tail

FILE=${1-data1}

pl " Input data file $FILE:"
cat $FILE

pl " Results, tac:"
tac $FILE

pl " Results, BSD / Solaris tail -r:"
v1=$( uname -a )
if  echo "$v1" | grep -q -i "bsd"
then
  tail -r $FILE
elif echo "$v1" | grep -q -i "sunos"
then
  /usr/xpg4/bin/tail -r $FILE
else
  pe " Not in a BSD or Solaris OS, cannot use BSD grep."
fi

pl " Results, perl one-liner:"
perl -e 'print reverse <>' $FILE

pl " Results, ppt perl, bsd tail work-alike:"
pe "http://cpansearch.perl.org/src/CWEST/ppt-0.14/html/commands/tail/index.html"
./ppt-tail -r $FILE

pl " Results, sed 1:"
sed '1!G;h;$!d' $FILE

pl " Results, sed 2:"
sed -n '1!G;h;$p' $FILE

exit 0

% ./s1

Environment: LC_ALL = C, LANG = C
(Versions displayed with local utility "version")
OS, ker|rel, machine: SunOS, 5.10, i86pc
Distribution        : Solaris 10 10/08 s10x_u6wos_07b X86
bash GNU bash 3.00.16
tail - ( /usr/xpg4/bin/tail, Jun 8 2006 )
perl 5.8.4
sed - ( /usr/xpg4/bin/sed, Aug 9 2005 )
./ppt-tail - ( local: ./ppt-tail, May 3 06:10 )

-----
 Input data file data1:
foo
bar
baz

-----
 Results, tac:
./s1: line 19: tac: command not found

-----
 Results, BSD / Solaris tail -r:
baz
bar
foo

-----
 Results, perl one-liner:
baz
bar
foo

-----
 Results, ppt perl, bsd tail work-alike:
http://cpansearch.perl.org/src/CWEST/ppt-0.14/html/commands/tail/index.html
baz
bar
foo

-----
 Results, sed 1:
baz
bar
foo

-----
 Results, sed 2:
baz
bar
foo

 
bash-3.2$ /tmp/Extract.sh 5458 my.log.10
awk: syntax error near line 1
awk: bailing out near line 1
bash-3.2$ uname -a
SunOS myhost 5.10 Generic_147440-22 sun4v sparc SUNW,SPARC-Enterprise-T5220