🚀 go-pugleaf

Han Solo <hsolo@escomposlinux.org> wrote:

: tengo un fichero de texto, supongamos algo como:

: a1 a2 a3 a4 a5
: b1 b2 b3 b4 b5
: c1 c2 c3 c4 c5
: d1 d2 d3 d4 d5
: e1 e2 e3 e4 e5

: y quiero convertirlo en su "transpuesto";

: a1 b1 c1 d1 e1
: a2 b2 c2 d2 e2
: a3 b3 c3 d3 e3
: a4 b4 c4 d4 e4
: a5 b5 c5 d5 e5

- Opcion A:

	Supongamos que tienes tu matriz de 3x3 en "file":

	tr ' ' \\012 < file | ./catsplit.sh 3 file.out | ed

	te dejara en file.out la matriz deseada.

- catsplit.sh -------------------------------------------------------------
#!/bin/sh

#
# use:
#	$0 numlines fileout < file | ed
#

rm -f $2

line=0
first_time=true

echo H
echo a
while read s
do
	if [ $line -eq $1 ]
	then
		if $first_time
		then
			echo .
			echo 1
			first_time=false
		else
			echo 1
		fi
		line=0
	fi
	if $first_time
	then
		echo $s
	else
		echo 's/$/ '"$s"'/'
		echo '+'
	fi

	line=`expr $line + 1`
done

echo w $2
echo q

---------------------------------------------------------------------------

- Opcion B:

(
cut -d" " -f1 file | tr \\012 " "; echo
cut -d" " -f2 file | tr \\012 " "; echo
cut -d" " -f3 file | tr \\012 " "; echo
) | sed 's/ $//'


- Otras mas eficientes:

usar algun lenguaje que soporte matrices.

-- 
PGP and other useless info at      \
http://www.cps.unizar.es/~spd/      \
finger://daphne.cps.unizar.es/spd    \       Timeo Danaos et dona ferentes
ftp://ivo.cps.unizar.es/pub/          \                         (Virgilio)