转置文本

原帖：处理前：
BJ30 26
BJ30 24
BJ30 63
BJ30 70
SH41 21
SH41 30
SH41 25
SH41 25
SD15 34
SD15 46
SD15 20
SD15 34
TJ20 23
TJ20 32
TJ20 31
TJ20 35

处理后：
BJ30 SH41 SD15 TJ20
26 21 34 23
24 30 46 32
63 25 20 31
70 25 34 35

awk '{if(!a[$1]++){x=1;y++}b[y]=$1;c[x,y]=$2;x++}END{for(i=1;i<=y;i++)s=s!=""?s OFS b[i]:b[i];print s;for(i=1;i

#!/usr/bin/perl
use warnings;
use strict;
use 5.010;

my ($x,$y) = (0,0);
my (@arr1,@arr2);

while (<DATA>) {
        @_ = split;
        if ( $arr1[$y] && $arr1[$y] ne $_[0] ) {
                $x=0;
                $y++;
        }
        $arr1[$y] = $_[0];
        $arr2[$x][$y] = $_[1];
        $x++;
}

END {
        say join ' ', @arr1;
        say join ' ', @{$arr2[$_]} for 0 .. $#arr1;
}

__DATA__
BJ30 26
BJ30 24
BJ30 63
BJ30 70
SH41 21
SH41 30
SH41 25
SH41 25
SD15 34
SD15 46
SD15 20
SD15 34
TJ20 23
TJ20 32
TJ20 31
TJ20 35