排序问题又来啦

blackxie

文本：
wincfg_ea.xml dv,jp,ln,va,hk
wincfg_eaa.xml sj,dv,jp,ln,hk
wincfg_eab.xml sj,dv,jp,ln,hk

输出：
wincfg_ea.xml
dv
hk
ln
jp
va
wincfg_eaa.xml
dv
hk
jp
ln
sj
wincfg_eab.xml
dv
hk
jp
ln
sj

注意，dv, hk。。。这些是需要排序的。

ziyunfei

awk 'BEGIN{FS=" |,"}{close("sort");print $1;print $2"\n"$3"\n"$4"\n"$5"\n"$6|"sort"}' file

blackxie

awk 'BEGIN{FS=" |,"}{close("sort");print $1;print $2"\n"$3"\n"$4"\n"$5"\n"$6|"sort"}' file
ziyunfei 发表于 2010-12-30 17:44

如果域number不是固定的呢？即可能文本如下：
wincfg_ea.xml dv,jp,ln,va
wincfg_eaa.xml sj,dv,jp,ln,hk,cn,id
wincfg_eab.xml sj,dv,jp,ln,hk

昭襄王

1. #! /usr/bin/perl
   
2. #pl037
   
3. open(LINES,"lines009");
   
4. chomp(@lines = <LINES>);
   
5. for (@lines){
   
6.     @line = split /[ ,]/;
   
7.     print shift(@line);
   
8.     print "\n";
   
9.     print "$_\n" for sort(@line);
   
10. }

复制代码

./pl037
wincfg_ea.xml
dv
hk
jp
ln
va
wincfg_eaa.xml
dv
hk
jp
ln
sj
wincfg_eab.xml
dv
hk
jp
ln
sj

ziyunfei

awk '{close("sort");print $1;sub($1" ","");gsub(/,/,"\n");print|"sort"}' file

L_kernel

文本：
wincfg_ea.xml dv,jp,ln,va,hk
wincfg_eaa.xml sj,dv,jp,ln,hk
wincfg_eab.xml sj,dv,jp,ln,hk
...
blackxie 发表于 2010-12-30 17:20

楼主你自己的排序都错了。按照顺序应该这样子。

1. $ awk 'BEGIN{FS="[ ,]"}{for(i=1;i<NF;i++)str[i]=$(i+1)}{asort(str);print $1;for(i=1;i<NF;i++) print str[i]}' a.txt
   
2. wincfg_ea.xml
   
3. dv
   
4. hk
   
5. jp
   
6. ln
   
7. va
   
8. wincfg_eaa.xml
   
9. dv
   
10. hk
    
11. jp
    
12. ln
    
13. sj
    
14. wincfg_eab.xml
    
15. dv
    
16. hk
    
17. jp
    
18. ln
    
19. sj
    

复制代码

L_kernel

如果域number不是固定的呢？即可能文本如下：
wincfg_ea.xml dv,jp,ln,va
wincfg_eaa.xml sj,dv,jp,l ...
blackxie 发表于 2010-12-30 17:51

1. $ awk 'BEGIN{FS="[ ,]"}{for(i=1;i<NF;i++)str[i]=$(i+1)}{asort(str);print $1;for(i=1;i<NF;i++) print str[i]}' a.txt
   
2. wincfg_ea.xml
   
3. dv
   
4. jp
   
5. ln
   
6. va
   
7. wincfg_eaa.xml
   
8. cn
   
9. dv
   
10. hk
    
11. id
    
12. jp
    
13. ln
    
14. sj
    
15. wincfg_eab.xml
    
16. dv
    
17. hk
    
18. jp
    
19. ln
    
20. ln
    

复制代码

freecr_cu

很简单 啊，上面的搞得复杂了
sed 's/[ ,]/\n/g' file

L_kernel

很简单 啊，上面的搞得复杂了
sed 's/[ ,]/\n/g' file
freecr_cu 发表于 2010-12-30 18:46

注意，人家是要排序的。替换倒是很简单的。

yinyuemi

1. $ cat 1
   
2. 
   
3. wincfg_ea.xml dv,jp,ln,va
   
4. wincfg_eaa.xml sj,dv,jp,ln,hk,cn,id
   
5. wincfg_eab.xml sj,dv,jp,ln,hk
   
6. 
   
7. $ cat 1 |awk -v RS=" |,|\n" '/win/{p=1;close("sort")}!/win/{p=0;print |"sort"}p'
   
8. 
   
9. wincfg_ea.xml
   
10. dv
    
11. jp
    
12. ln
    
13. va
    
14. wincfg_eaa.xml
    
15. cn
    
16. dv
    
17. hk
    
18. id
    
19. jp
    
20. ln
    
21. sj
    
22. wincfg_eab.xml
    
23. dv
    
24. hk
    
25. jp
    
26. ln
    
27. sj
    

复制代码