第一列或第二列相同的行合并

mswsg

尊敬的各位大爷、大妈、大叔、大婶、帅哥、美女：
   最近忙着写论文，出现的少点。刚碰到一个问题：
某一行中的字母，如果有在其他行也出现，则将他们合并为一行。
重新编辑下文件
文件1：

1. A B
   
2. C A
   
3. D C
   
4. E F
   
5. N G
   
6. C N

复制代码

结果：

1. A B C D N G
   
2. E F
   

复制代码

不知道描述准确吗？
附件是我要处理的文件
5.txt (1.22 MB, 下载次数: 7)

2016-07-15 18:05 上传

点击文件名下载附件

daili0703

大爷、大妈、大叔、大婶.....

sunzhiguolu

回复 1# mswsg
数据好像列举的有点少, 比如这样的情况 如何输出结果?

A B
C A
D C
E F
N G
M a
Z z
P N
P B

   

moperyblue

[code][/code]

mswsg

jjie'guo'shi回复 3# sunzhiguolu

结果是

1. A B C D P N G
   
2. E F
   
3. M a
   
4. Z z
   

复制代码

不用担心大小写的问题，全是大写

sunzhiguolu

回复 5# mswsg

A B
C A
D C
E F
N G
M a
Z z
P N
P B

你的意思是找到字母 N 之后才输出那个 G?

   

mswsg

b不是，顺序还好，只要该在一行的都在一行就行了。
A C D B ,顺序都行。甚至单单合并行也行。回复 6# sunzhiguolu


   

haooooaaa

1. sort file | awk 'a{if(a~$1)a=a" "$2;else if(a~$2)a=a" "$1;else print}!a{a=$0}END{print a}'
   
2. E F
   
3. A B C N D G
   

复制代码

sunzhiguolu

mswsg 发表于 2016-07-15 18:53
b不是，顺序还好，只要该在一行的都在一行就行了。
A C D B ,顺序都行。甚至单单合并行也行。回复 6# sun ...

有点问题 ...

jason680

回复 1# mswsg

$ awk 'function combin(x,y){if(a[x]==""&&a[y]==""){a[x]=a[y]=++c;s[c]=x" "y;return}if(a[x]==a[y])return;if(!a[x]){a[x]=a[y];s[a[y]]=s[a[y]]" "x;return}if(!a[y]){a[y]=a[x];s[a[x]]=s[a[x]]" "y;return};s[a[x]]=s[a[x]]" "s[a[y]];t=split(s[a[y]],b);delete s[a[y]];for(n=1;n<=t;++n)a[b[n]]=a[x]}{combin($1,$2)}END{for(n in s)print s[n]}' FILE
A B C D N G
E F