小白又來啦！！！

Tracy_Panda

原文本：
a 1
a 2
b 1
b 4
c 2
c 5
想要的結果：
b c a
1 2 1
4 5 2

在此還是先謝謝各位了，肯定很簡單的，大家踊躍回答啦

Tracy_Panda

jason680

$ awk '{d[$1];a[$1,0]=$1;a[$1,++c[$1]]=$2;if(m<c[$1])m=c[$1]}END{for(n=0;n<=m;++n){s="";for(t in d)s=s a[t,n]" ";print s}}' FILE
a b c
1 1 2
2 4 5

Tracy_Panda

謝謝老師的回答，如果我的結果想要得到的是b c a 的順序呢，這個要怎麼處理呢，或者想要得到特殊的順序，要用到什麼命令呢回复 3# jason680


   

Herowinter

回复 1# Tracy_Panda

1. 
   
2. awk '{if(++a[$1]>max)max=a[$1];b[$1,a[$1]]=$2} END{for(i in a)head=length(head)?head" "i:i;print head;for(i=1;i<=max;i++){s="";for(j in a)s=length(s)?s" "b[j,i]:b[j,i];print s}}' i
   
3. a b c
   
4. 1 1 2
   
5. 2 4 5
   

复制代码

jason680

回复 4# Tracy_Panda

不是很简单吗？  你又改题....
另开帖提问吧... 你简问人简回...
   

Tracy_Panda

我沒有呀 我問題中的答案寫的就是 b c a的順序呀。。。可能是我沒太標明，謝謝啦回复 6# jason680


   

reyleon

回复 7# Tracy_Panda

1. awk 'BEGIN{h="b c a";ls=split(h,k,FS)}{n=++b[$1];if(m<n)m=n}{a[$1,n]=$2}END{print h;for(i=1;i<=m;i++){for(j=1;j<=ls;j++){v=length(a[k[j],i])?a[k[j],i]:" ";s=length(s)?s" "v:v}print s;s=""}}' file

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($offset, %hUniq, @aData, $K);
   
6. while (<DATA>){
   
7.     my ($k, $n) = split;
   
8.     $K ||= $k;
   
9.     $K eq $k ? $offset++ : do {$offset = 1; $K = $k};
   
10.     push (@{$aData[0]}, $k) if (!$hUniq{$k}++);
    
11.     push (@{$aData[$offset]}, $n);
    
12. }
    
13. 
    
14. $offset = [1, -1, 0];
    
15. print "@{$aData[$_]}[@$offset]\n" for 0 .. $#aData;
    
16. 
    
17. __DATA__
    
18. a 1
    
19. a 2
    
20. b 1
    
21. b 4
    
22. c 2
    
23. c 5
    

复制代码

perl abc.pl
---------------------------------
b c a
1 2 1
4 5 2