Shell Programming and Scripting

#!/usr/bin/ksh
typeset -i mTot=0
typeset -i mInd
mPrev1="First"
rm -f F_Summ
while read mCol1 mCol2; do
  if [[ "${mCol1}" != "${mPrev1}" || "${mCol2}" != "${mPrev2}" ]]; then
    if [[ "${mPrev1}" != "First" ]]; then
      echo ${mPrev1} ${mPrev2} ${mTot} >> F_Summ
      mTot=0
    fi
  fi
  mPrev1=${mCol1}
  mPrev2=${mCol2}
  mTot=${mTot}+1
done < F_Inp_File
if [[ "${mPrev1}" != "First" ]]; then
  echo ${mPrev1} ${mPrev2} ${mTot} >> F_Summ
fi

sed 's/.* \(.*\) .*/\1/' B2 | sort | uniq > F_Uniq_col2
set -A mACol2 `cat F_Uniq_col2`
echo "  "${mACol2[*]}

mPrev1="First"
while read mCol1 mCol2 mTotal; do
  if [[ "${mCol1}" != "${mPrev1}" ]]; then
    while [[ ${mInd} -lt ${#mACol2[*]} ]]; do
      mAll=${mAll}" 0"
      mInd=${mInd}+1
    done
    if [[ "${mPrev1}" != "First" ]]; then
      echo ${mPrev1} ${mAll}
    fi
    mInd=0
    mAll=""
  fi
  while [[ "${mCol2}" != "${mACol2[$mInd]}" ]]; do
    mAll=${mAll}" 0"
    mInd=${mInd}+1
  done
  mAll=${mAll}" "${mTotal}
  mPrev1=${mCol1}
  mInd=${mInd}+1
done < F_Summ
if [[ "${mPrev1}" != "First" ]]; then
  while [[ ${mInd} -lt ${#mACol2[*]} ]]; do
    mAll=${mAll}" 0"
    mInd=${mInd}+1
  done
  echo ${mPrev1} ${mAll}
fi

#!/usr/bin/env ruby 
h={}; assoc=[]
File.open("file").each do |line|
    a,b = line.chomp.split
    assoc << b
    (h[a] ||= []) << b
end
assoc.uniq!
puts " "*20 + assoc.join("%20s" % " ")
h.each do |x,y|
    print "#{x} "
    assoc.each {|w| print "%20s " % (y.include?(w) ? "1 "  : "0 ") }
    puts
end

$ ruby matrix.rb
                    A                    B                    C
X                   1                    1                    0
Y                   1                    0                    1
Z                   0                    1                    1