Shell Programming and Scripting

#! /usr/bin/ksh


integer ndataset idataset nline
exec < sid.dat

#  Read in the number of datasets (first line)
read ndatasets
echo ndatasets = $ndatasets

#  read in the sizes of all of the datasets
echo
idataset=0
while ((idataset < ndatasets)) ; do
        read datasetsize[idataset]
        ((idataset=idataset+1))
done
idataset=0
while ((idataset < ndatasets)) ; do
        echo size of datasize $idataset is ${datasetsize[idataset]}
        ((idataset=idataset+1))
done

#  read in the datasets
idataset=0
while ((idataset < ndatasets)) ; do
        nline=0
        while ((nline < ${datasetsize[idataset]})) ; do
                read inputline
                eval dataset$idataset[nline]=\"\$inputline\"
                ((nline=nline+1))
        done
        ((idataset=idataset+1))
done

#  display the datasets
idataset=0
while ((idataset < ndatasets)) ; do
        nline=0
        while ((nline < ${datasetsize[idataset]})) ; do
                eval echo dataset = $idataset \"   \" line = $nline \${dataset$idataset[nline]}
                ((nline=nline+1))
        done
        ((idataset=idataset+1))
done
exit 0

$
$ cat sid.dat
2
3
1
abc
def
ghi
/dev/sid/
$ ./sid
ndatasets = 2

size of datasize 0 is 3
size of datasize 1 is 1
dataset = 0   line = 0 abc
dataset = 0   line = 1 def
dataset = 0   line = 2 ghi
dataset = 1   line = 0 /dev/sid/
$

aName[1]="John" ; aPhoneNr[1]="123"
aName[2]="Jack" ; aPhoneNr[2]="234"
aName[3]="Theo" ; aPhoneNr[3]="345"
aName[4]="Dick" ; aPhoneNr[4]="456"

# searching for Theos Phone number:

search="Theo"

(( cnt = 1 ))
while [ $cnt -le ${#aName[@]} ] ; do
     if [ "${aName[$cnt]}" = "$search" ] ; then
          print "found the Name ${aName[$Cnt]}, his nr is ${aPhoneNr[$cnt]}"
     fi
done