怎么分类提取文本内容？

很宅的男

     大家好，我有个问题想请教一下大家，我有一个文本格式如下：
          01 A B C
          01 A B C
          01 B A C
          02 B C A
          02 C A B
          ...
     我想把这个文本变成如下格式：
          01-text  A A B
          01-top1 B B A
          01-top2 C C C
          02-text  B C
          02-top1 C A
          02-top2 A B
        ...

      也就是按第一列的编号，把每一列的数据变成行的，请问大家有什么好一点的方法吗？

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hData = ();
   
6. while (<DATA>){
   
7.     my ($k, @aT) = split;
   
8.     push (@{$hData{$k}[$_]}, $aT[$_]) for 0 .. $#aT;
   
9. }
   
10. 
    
11. my @aHeads = qw /-text -top1 -top2/;
    
12. while (my ($k, $ra) = each %hData){
    
13.     print "$k$aHeads[$_] @{$ra->[$_]}\n" for 0 .. (@{$ra} - 1);
    
14. }
    
15. 
    
16. __DATA__
    
17. 01 A B C
    
18. 01 A B C
    
19. 01 B A C
    
20. 02 B C A
    
21. 02 C A B

复制代码

moperyblue

1. awk 'BEGIN{split(",-text,-top1,-top2",s,",")}{for(i=1;i++<NF;)a[$1,i]=a[$1,i]?a[$1,i] FS $i:$i;b[$1]}END{for(i in b)for(j=1;j++<NF;)print i s[j],a[i,j]}' file

复制代码