UNIX for Dummies Questions & Answers

#!/bin/sh -

# @(#) s2       Demonstrate paste for columns.

echo
echo " (Versions of commands from local \"version\""
version >/dev/null 2>&1 && version bash my-nl paste
FILES="e1 e2 e3"

echo
echo " Input data:"
my-nl $FILES

echo
echo " Results of paste:"
paste $FILES

exit 0

% ./s2

 (Versions of commands from local "version"
GNU bash 2.05b.0
my-nl (local) 294
paste (coreutils) 5.2.1

 Input data:

==> e1 <==

  1 MANOA
  2 DETOA

==> e2 <==

  1 DETOM

==> e3 <==

  1 SEAOT
  2 MANOT
  3 DETOT

 Results of paste:
MANOA   DETOM   SEAOT
DETOA           MANOT
                DETOT

$ cat listr
#! /usr/bin/ksh

LIST="DETOT
MANOA
DETOM
DETOA
MANOT
SEAOT"

c1=0
c2=0
c3=0
for word in $LIST ; do
        suffix=${word#${word%??}}
        case $suffix in
        OT) list1[c1]=$word
                ((c1=c1+1))
                ;;
        OA) list2[c2]=$word
                ((c2=c2+1))
                ;;
        OM) list3[c3]=$word
                ((c3=c3+1))
                ;;
        *)  echo $word does not have a standard suffix
                ;;
        esac
done
        set -A list1 -s ${list1[*]}
        set -A list2 -s ${list2[*]}
        set -A list3 -s ${list3[*]}
        set -A counts -s ${#list1[*]} ${#list2[*]} ${#list3[*]}
        max=${counts[((${#counts[*]}-1))]}
n=0
typeset -L12 item1 item2 item3
while ((n<max)) ; do
        item1=${list1[n]}
        item2=${list2[n]}
        item3=${list3[n]}
        echo "$item1 $item2 $item3"
        ((n=n+1))
done
exit 0
$
$
$ ./listr
DETOT        DETOA        DETOM
MANOT        MANOA
SEAOT
$