Shell Programming and Scripting

## DESCRIPTION: print location[s] of $substr in $string

string=$1
substr=$2

_index() 
{ 
    case $1 in 
        "") _INDEX=0;
            return 1
            ;;
        *"$2"*)
            idx=${1%%"$2"*};
            _INDEX=$(( ${#idx} + 1 ))
            ;;
        *)  _INDEX=0;
            return 1
            ;;
    esac
}

length=${#substr}
PAD=
PADCHAR=X
while [ ${#PAD} -lt $length ]
do
  PAD=$PAD$PADCHAR
done
while :
do
  case $string in
    *"$substr"*) _index "$string" "$substr" || break
                 echo "$_INDEX"
                 string=${string%%"$substr"*}$PAD${string#*"$substr"} 
                 ;;
    *) break ;;
  esac
done

echo 1234345678upthehappytheir | awk '{
START=1
while (match(substr($0,START),"the") && RSTART > 0 )
{
   print NR, RSTART+ START -1
   START += RSTART
}
}' | more
1 13
1 21