vertical / horizontal

Un truc que je n'ai jamais réussi à faire proprement avec les commandes de bases, c'est de transposer (lignes vers colonnes et colonnes vers lignes). Et je n'ai pas trouvé dans cette page comment faire.

Le cas d'usage est simple: si je veux faire une manipulation sur des colonnes et pas sur des lignes (un grep ou un sed), alors je transpose, je grep ou sed, puis je re-transpose.

#! /usr/bin/perl 
# transpose
use strict;
my @full = ();
my $max = 0;
while (<STDIN>) {
 chomp;
 my @line = split(/[\s|\t]+/,$_);
 push @full, \@line;
 $max = scalar(@line) if ($max < scalar(@line));
}
for (my $i=0; $i < $max; $i++) {
 foreach (@full) {
 print @$_[$i]." ";
 }
 print "\n";
}

Ca fonctionne sur des tables non rectangulaires (jusqu'à un point qui me convient), et ça se pipe facilement.

echo "a b c\nd e\n f"
a b c
d e
 f
echo "a b c\nd e\n f" |t
a d 
b e f 
c 
echo "a b c\nd e\n f" | t |t
a b c 
d e 
 f

(ça compresse les espaces multiples)

Bref, j'ai ça depuis 20 ans dans mes scripts que je trimballe d'une boîte à l'autre.

Une idée pour faire ça avec le commandes courantes du shell ?