Shell Programming and Scripting

#!/bin/ksh
rtf_file=$1
awk '/Question:/,/Options:/{print}' $rtf_file | sed '/^$/d' > ./newfile
print=xx
n=1
while read line; do
        typeset -L9 fch=$line
        typeset -L8 fch2=$line
        if [[ $fch = 'Question:' ]]; then
                print=no
  q_no=`echo $line | tr -d "[a-z][A-Z][:]"`
                ((n+=1))
       elif [[ $fch2 = 'Options:' ]]; then
                print=no
       else
               print=yes
        fi
        if [[ $print = 'yes' ]]; then
            echo "$q_no $line"
            print=yes
        fi
done < ./newfile

i=1
while [ $i -le $(nawk -F'[:-]' '/Question:/{print $2|"tail -1"}' infile) ]
do
        sed -n "/Question: $i/,/Options/p" infile | sed '1d;$d' | xargs
        i=$((i+1))
done

perl -ane '
chomp;if(/^Question/../^Option/)
{(/^Que/)&&(print "$F[1] ");
(/^Question/||/^Options/) && next;
(/\?$/)?print "$_\n":print "$_ "}' inputfile

awk '{
if($1 != "") {
if($1 == "Question:") {num=$2}
else if ($1 == "Options:") {print ""}
else {printf "%s %s", num, $0; num=""}
}
}' infile