转置问题

我收点倦

各位高手，小弟有个转置的问题想请教
file.txt中的文件如下：
ABO_1444  C G
ABO_1444  G G
ABO_1444  G G
ABO_1444  G G
ABO_1445  A A
ABO_1445  A G
ABO_1445  G G
ABO_1445  A A
ABO_1446  A G
ABO_1446  G G
ABO_1446  A A
ABO_1446  A A
ABO_1447  A G
ABO_1447  A G
ABO_1447  A G
ABO_1447  G G
想转置一下结果如下：
ABO_1444 C G G G G G G G
ABO_1445 A A A G G G A A
ABO_1446 A G G G A A A A
ABO_1447 A G A G A G G G
不知大侠们有何办法

代号：军刀

1. awk '{a[$1]=a[$1]?a[$1]" "$3" "$4:$3" "$4}END{for(i in a)print i,a[i]}' file.txt

复制代码

kernel69

1. perl -lane '$h{$F[0]}.=" $F[1] $F[2]";END{print "$_ $h{$_}" for(sort keys %h)}' b

复制代码

1. #!/usr/bin/perl
   
2. 
   
3. use 5.010;
   
4. 
   
5. while (<DATA>) {
   
6.     ($str,$str1,$str2) = split /\s+/;
   
7.     $h{$str} .= " $str1 $str2";
   
8. }
   
9. 
   
10. for $k(sort keys %h) {
    
11.     say "$k $h{$str}"
    
12. 
    
13. }
    
14. 
    
15. 
    
16. __DATA__
    
17. ABO_1444  C G
    
18. ABO_1444  G G
    
19. ABO_1444  G G
    
20. ABO_1444  G G
    
21. ABO_1445  A A
    
22. ABO_1445  A G
    
23. ABO_1445  G G
    
24. ABO_1445  A A
    
25. ABO_1446  A G
    
26. ABO_1446  G G
    
27. ABO_1446  A A
    
28. ABO_1446  A A
    
29. ABO_1447  A G
    
30. ABO_1447  A G
    
31. ABO_1447  A G
    
32. ABO_1447  G G

复制代码

回复 1# 我收点倦


   

我收点倦

回复 3# kernel69
大侠好贴心，居然给出了两种方式，拜谢了！！！


   

我收点倦

回复 2# 代号：军刀
谢谢大侠，可以运行的，不过结果好像有点小问题

   

代号：军刀

回复 5# 我收点倦


    眼睛花了，看错看成4列，改一下。

1. awk '{a[$1]=a[$1]?a[$1]" "$2" "$3:$2" "$3}END{for(i in a)print i,a[i]}' file.txt
   
2. ABO_1444 C G G G G G G G
   
3. ABO_1445 A A A G G G A A
   
4. ABO_1446 A G G G A A A A
   
5. ABO_1447 A G A G A G G G

复制代码

我收点倦

回复 6# 代号：军刀
恩恩，这回可以了，多谢多谢