shell统计行，数字降序

374063

直接进主题，shell统计行，数字降序如何实现，例如：

2,1,3
1,2,3
2,8,3
2,3,8
8,3,2
1,2,4
4,1,2
如上面的数字，同时对每一个的数字做降序排序，得到结果
1,2,3
1,2,3
2,3,8
2,3,8
2,3,8
1,2,4
1,2,4
这样，间隔符是，如何写脚本啊

yestreenstars

这不是升序么？

1. [root@localhost ~]# awk '{split($0,a,",");for(i=1;i<=asort(a,b);i++)s=s!=""?s","b[i]:b[i];print s;s=""}' i
   
2. 1,2,3
   
3. 1,2,3
   
4. 2,3,8
   
5. 2,3,8
   
6. 2,3,8
   
7. 1,2,4
   
8. 1,2,4
   
9. [root@localhost ~]#

复制代码

jason680

回复 1# 374063

which one do you like

$ awk -F, '{for(n=0;n++<NF;)a[n]=$n;t=asort(a);for(n=1;n<t;n++)printf a[n]",";print a[t];delete a}' FILE

$ awk -F, '{split($0,a);t=asort(a);for(n=1;n<t;n++)printf a[n]",";print a[t]}' FILE

$ perl -F, -lane '{$,=",";print sort @F}' FILE

1,2,3
1,2,3
2,3,8
2,3,8
2,3,8
1,2,4
1,2,4

   

yestreenstars

回复 3# jason680


    i like the last one.

asdf2110

1. #!/bin/sh
   
2. 
   
3. while read line
   
4. do
   
5.         a=($(for i in ${line//,/ };do echo $i;done | sort))
   
6.         echo ${a[@]} | sed 's/ /,/g'
   
7. done < e.txt

复制代码

374063

回复 3# jason680


    非常感谢你啊！！！

davidbeckham921

perl好牛掰啊

shreychen

处理文本还是perl牛逼啊

yinwei2012

@jason680
跪了