#!/bin/ksh -

# @(#) s1       Demonstrate pasting with intermediate files.

echo
echo "(Versions displayed with local utility \"version\")"
version >/dev/null 2>&1 && version =o $(_eat $0 $1) paste
set -o nounset
echo

FILE1=data1
FILE2=data2
FILE3=data3
FILE4=data4

echo
echo " Data file $FILE1:"
cat $FILE1

echo
echo " Data file $FILE2:"
cat $FILE2

echo
echo " Data file $FILE3:"
cat $FILE3

echo
echo " Data file $FILE4:"
cat $FILE4

echo
echo " Intermediate results:"
paste $FILE1 $FILE2 >t1
cat t1

echo
paste $FILE3 $FILE4 >t2
cat t2

echo
echo " Results of pasting intermediate result files:"
paste t1 t2

exit 0

$ ./s1

(Versions displayed with local utility "version")
SunOS 5.10
ksh M-11/16/88i
paste - no version provided for /usr/bin/paste.


 Data file data1:
a
b
c

 Data file data2:
d
e
f

 Data file data3:
g
h
i

 Data file data4:
j
k
l

 Intermediate results:
a       d
b       e
c       f

g       j
h       k
i       l

 Results of pasting intermediate result files:
a       d       g       j
b       e       h       k
c       f       i       l

#!/bin/bash -

# @(#) s1       Demonstrate paste written in perl, Perl Power Tools Suite.

echo
echo "(Versions displayed with local utility \"version\")"
version >/dev/null 2>&1 && version =o $(_eat $0 $1)
set -o nounset

N=${1-15}

FILE1=data1
FILE2=data${N}

echo
echo " Sample: data file $FILE1:"
cat $FILE1

echo
echo " Sample: data file $FILE2:"
cat $FILE2

files=$( echo data? ; echo data?? )
echo
echo " Results:"
./paste.perl -d " " $files

exit 0

$ ./s1

(Versions displayed with local utility "version")
SunOS 5.10
GNU bash 3.00.16

 Sample: data file data1:
1.1
1.2

 Sample: data file data15:
15.1
15.2

 Results:
1.1 2.1 3.1 4.1 5.1 6.1 7.1 8.1 9.1 10.1 11.1 12.1 13.1 14.1 15.1
1.2 2.2 3.2 4.2 5.2 6.2 7.2 8.2 9.2 10.2 11.2 12.2 13.2 14.2 15.2