求助--号码段汇总

ywlscpl

1. awk '{for (i=1;i<=NF;i++) {v=substr($i,1,6);a[v]++;b[v]=(b[v])?b[v]"\n"$i:$i}}END{print "号码段";for (i in a)  if (a[i]==10) print i;print "7位号码";for (i in a) if (a[i]!=10) print b[i]}' file

复制代码