[其他] 【已解决】gawk：提取出现最多次数的字符

思想之翼

D:\JZ\A.txt  如果每行只有1个字母
G
B
J
J
E
E
结果 J E 竖排写入D:\JZ\B.txt

gawk "{++a[$0];a[$0]>n+0?n=a[$0]:n=n+0}END{for(i in a)if(a[i]==n)print i}" "D:\JZ\A.txt">"D:\JZ\B.txt"
复制代码

gawk "{n=n<++a[$0]?a[$0]:n}END{for(k in a)if(n==a[k])print k}"<"D:\JZ\A.txt">"D:\JZ\B.txt"
复制代码

gawk "{if(max<=++a[$0]){max=a[$0];b[max]=b[max]$0\"\n\"}}END{printf b[max]}" D:\JZ\A.txt > D:\JZ\B.txt
复制代码

D:\JZ\A.txt  如果每行有若干字母
G B B
B C C C A
J
J
E
E
结果 B C
上述代码如何修改？

terse

加个FOR 利用NF应该行

terse

这样符合不
路径自己加一下

gawk "{for(i=1;i<=NF;i++) a[$i]++} END {for(k in a) if(a[k]>max){max=a[k];s=k}else if(a[k]==max)s=s\" \"k; print s}" a.txt
复制代码

hfxiang

回复 1# 思想之翼

gawk "{for(i=1;i<=NF;i++)n=n<++a[$i]?a[$i]:n}END{for(k in a)if(n==a[k])print k}" "D:\JZ\A.txt">"D:\JZ\B.txt"
复制代码