第一列相同，输出第三列到一行。

yestreenstars

1. [root@localhost ~]# sed -r 's/\s+\S+\s+/ /;1h;1!H;$!d;g;:1;s/(^|\n)(\S+)([^\n]+)\n\2\b([^\n]+)/\1\2\3\4/;t1' i
   
2. 1 489168 AT5G23110.1 Carubv10000018m Thhalv10003499m Bra013017 Tp2g24010     
   
3. 2 355042 AT4G17140.3 Carubv10006303m Thhalv10024176m Bra021067 Tp7g17050      
   
4. 3 473945 AT1G48090.1 Carubv10012395m Thhalv10011170m Bra014101 Tp1g35040
   
5. [root@localhost ~]#

复制代码

聆雨淋夜

awk '{a[$1];b[$1","$2]=$3;c[$2]}END{for(i in a){printf i"\t";for(j in c)printf b[i","j]"\t";print ""}}' 1.txt

聆雨淋夜

回复 7# zxy877298415
通过a[$1]=a[$1]来判断数组是否为空么？我也没看懂。

   

聆雨淋夜

回复 9# yestreenstars
星辰大神帮忙解释下吧，a[$1]=a[$1]是判断数组是否为空么，另外，awk数组支持拼接吗


   

jason680

回复 14# 聆雨淋夜

They are the same as below:

V=C?T:F;

V=(C?T:F);

if(C)V=T;else V=F;

yestreenstars

回复 14# 聆雨淋夜

判断a[$1]的值是否为真~
   

moperyblue

1. sed -r 's/\s+\S+//;:a;N;/^(\S+).*\n\1/{s/\n(\S+\s+){2}/ /;ta};P;D'

复制代码

jcdiy0601

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

复制代码

sunzhiguolu

1. perl -ane 'if($b!=$F[0]){printf("\n%d %s",$b=$F[0],$F[-1]);next}print" $F[-1]"' f

复制代码

sunzhiguolu

1. perl -ane '{push(@{$a[$F[0]]},$F[-1])}END{print "$_ @{$a[$_]}\n" for 1..$#a}' f

复制代码