Shell Programming and Scripting

first line Something Today YYDDPPSVXIPYYY0XXXOFFS00000000000?

TODAY YYDDPPSVXIPYYY000XXXOFFS00000

awk 'match($0, /PYY.*XXX/){printf("%d %s\n", RLENGTH - 2, substr($0, RSTART, RLENGTH))}' file

6 PYYY0XXX
8 PYYY000XXX

awk '{print index ($0, STR2) - index ($0, STR1) + 1}' STR1="PYYY" STR2="XXX" file
6
8

#! /bin/ksh

typeset    chStr="$1"
typeset    chPattern="$2"

typeset -i iStrIdx=1
typeset -i iPatLen=${#chPattern}
typeset -i iStrLen=$(( ${#chStr} - iPatLen + 1 ))

while [ $iStrIdx -le $iStrLen ] ; do
     if [ "${chStr#${chPattern}}" != "${chStr}" ] ; then
          print - "$chPattern found at position $iStrIdx"
          exit 0
     fi
     (( iStrIdx += 1 ))
     chStr="${chStr#?}"
done

print - "Pattern $chPattern not found in String"
exit 1

#! /bin/ksh

typeset    chPattern="$1"

typeset -i iStrIdx=1
typeset -i iPatLen=${#chPattern}
typeset -i iStrLen=0
typeset -i iLineCnt=0
typeset -i lFound=0

while read chStr ; do
     iStrIdx=1
     iStrlen=$(( ${#chStr} - iPatLen + 1 ))
     (( iLineCnt += 1 ))
     (( lFound = 0 ))
     while [ $iStrIdx -le $iStrLen ] ; do
          if [ "${chStr#${chPattern}}" != "${chStr}" ] ; then
               print - "$chPattern found at position $iStrIdx in line $iLineCnt"
               (( iStrIdx = iStrLen )) # skip rest of string
               (( lFound = 1 ))
          else
               (( iStrIdx += 1 ))
               chStr="${chStr#?}"
          fi
     done
     if ! (( lFound )) ; then
          print - "$chPattern not found in line $iLineCnt"
     fi
done

exit 0