文本排序问题求助各位大侠

huatuo20002008

a.txt数据格式如下：
/* MOC = MODULE */                                                   
ADD MODULE:MID=30,MT=SCU
ADD MODULE:MID=34,MT=SCU
ADD MODULE:MID=29,MT=SCU
ADD MODULE:MID=31,MT=SCU
ADD MODULE:MID=32,MT=SCU
ADD MODULE:MID=33,MT=SCU

/* MOC = LDMI */
ADD LDMI:LDID=1,ADDRT=IPADDRESS
ADD LDMI:LDID=0,ADDRT=DOMAINNAME

/* MOC = TDMI */
ADD TDMI:CID=0,TDID=1,ADDRT=DOMAINNAME
ADD TDMI:CID=2,TDID=0,ADDRT=IPADDRESS
ADD TDMI:CID=0,TDID=10,ADDRT=IPADDRESS
ADD TDMI:CID=0,TDID=2,ADDRT=IPADDRESS

需排序成如下结果：
/* MOC = MODULE */
ADD MODULE:MID=29,MT=SCU
ADD MODULE:MID=30,MT=SCU
ADD MODULE:MID=31,MT=SCU
ADD MODULE:MID=32,MT=SCU
ADD MODULE:MID=33,MT=SCU
ADD MODULE:MID=34,MT=SCU

/* MOC = LDMI */
ADD LDMI:LDID=0,ADDRT=DOMAINNAME
ADD LDMI:LDID=1,ADDRT=IPADDRESS

/* MOC = TDMI */
ADD TDMI:CID=0,TDID=1,ADDRT=DOMAINNAME
ADD TDMI:CID=0,TDID=2,ADDRT=IPADDRESS
ADD TDMI:CID=0,TDID=10,ADDRT=IPADDRESS
ADD TDMI:CID=2,TDID=0,ADDRT=IPADDRESS

请各位大侠帮忙看看如何用shell实现，特别是TDMI那块，想了很久也找不到好思路。
不胜感激！

ziyunfei

awk '/* MOC =/{close("sort");print}/ADD/{print $0|"sort"}' a.txt

huatuo20002008

回复 2# ziyunfei

谢谢大虾，执行结果如下，TDMI那段还有些小问题，应为，请再帮忙看看如何修改实现？
/* MOC = TDMI */
ADD TDMI:CID=0,TDID=1,ADDRT=DOMAINNAME
ADD TDMI:CID=0,TDID=2,ADDRT=IPADDRESS
ADD TDMI:CID=0,TDID=10,ADDRT=IPADDRESS
ADD TDMI:CID=2,TDID=0,ADDRT=IPADDRESS


$ cat a.txt|awk '/* MOC =/ {close("sort"); print $0} /ADD/ {print $0|"sort"}'
/* MOC = MODULE */
ADD MODULE:MID=29,MT=SCU
ADD MODULE:MID=30,MT=SCU
ADD MODULE:MID=31,MT=SCU
ADD MODULE:MID=32,MT=SCU
ADD MODULE:MID=33,MT=SCU
ADD MODULE:MID=34,MT=SCU
/* MOC = LDMI */
ADD LDMI:LDID=0,ADDRT=DOMAINNAME
ADD LDMI:LDID=1,ADDRT=IPADDRESS
/* MOC = TDMI */
ADD TDMI:CID=0,TDID=1,ADDRT=DOMAINNAME
ADD TDMI:CID=0,TDID=10,ADDRT=IPADDRESS
ADD TDMI:CID=0,TDID=2,ADDRT=IPADDRESS
ADD TDMI:CID=2,TDID=0,ADDRT=IPADDRESS

jason680

回复  ziyunfei

谢谢大虾，执行结果如下，TDMI那段还有些小问题，应为，请再帮忙看看如何修改实现？
/ ...
huatuo20002008 发表于 2011-01-01 20:52

条件限制:
ADD ...xx=val1,yyyy=val2
val2非数字时,val1不可重复

# cat moc.pl

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. 
   
5. sub sort_out{
   
6.     my %hData = @_;
   
7.     foreach(sort keys %hData){
   
8.         print "$hData{$_}";
   
9.     }
   
10. }
    
11. 
    
12. my %hData = ();
    
13. while(<>){
    
14.     if(m/^\s*$/){
    
15.         sort_out(%hData);
    
16.         %hData = ();
    
17.         print;
    
18.         next;
    
19.     }
    
20.    
    
21.     if(m!^\s*/\*!){
    
22.         print;
    
23.     }else{
    
24.         my ($sK1, $sK2) = (split /[,=]/, $_)[1,3];
    
25.         my $sIndex = sprintf("%03d%03d", $sK1, $sK2);
    
26.         $hData{$sIndex} = $_;      
    
27.     }
    
28. }
    
29. sort_out(%hData);
    

复制代码

# perl moc.pl a.txt

/* MOC = MODULE */
ADD MODULE:MID=29,MT=SCU
ADD MODULE:MID=30,MT=SCU
ADD MODULE:MID=31,MT=SCU
ADD MODULE:MID=32,MT=SCU
ADD MODULE:MID=33,MT=SCU
ADD MODULE:MID=34,MT=SCU

/* MOC = LDMI */
ADD LDMI:LDID=0,ADDRT=DOMAINNAME
ADD LDMI:LDID=1,ADDRT=IPADDRESS

/* MOC = TDMI */
ADD TDMI:CID=0,TDID=1,ADDRT=DOMAINNAME
ADD TDMI:CID=0,TDID=2,ADDRT=IPADDRESS
ADD TDMI:CID=0,TDID=10,ADDRT=IPADDRESS
ADD TDMI:CID=2,TDID=0,ADDRT=IPADDRESS

yinyuemi

1. $ cat file |awk -v FS="[=,]" '{print ($2~/^[0-9]/?$2:"0"),($4~/^[0-9]/?$4:"0"),$0}' |awk '/* MOC =/{close("sort -k1n -k2");print}/ADD/{print $0|"sort -k1n -k2"}' |cut -d" " -f3-7
   
2. 
   
3. /* MOC = MODULE */
   
4. ADD MODULE:MID=29,MT=SCU
   
5. ADD MODULE:MID=30,MT=SCU
   
6. ADD MODULE:MID=31,MT=SCU
   
7. ADD MODULE:MID=32,MT=SCU
   
8. ADD MODULE:MID=33,MT=SCU
   
9. ADD MODULE:MID=34,MT=SCU
   
10. /* MOC = LDMI */
    
11. ADD LDMI:LDID=0,ADDRT=DOMAINNAME
    
12. ADD LDMI:LDID=1,ADDRT=IPADDRESS
    
13. /* MOC = TDMI */
    
14. ADD TDMI:CID=0,TDID=1,ADDRT=DOMAINNAME
    
15. ADD TDMI:CID=0,TDID=10,ADDRT=IPADDRESS
    
16. ADD TDMI:CID=0,TDID=2,ADDRT=IPADDRESS
    
17. ADD TDMI:CID=2,TDID=0,ADDRT=IPADDRESS
    

复制代码

huatuo20002008

回复 5# yinyuemi

非常感谢楼上两位大侠，困扰了好久的问题终于在2011年元旦节搞定了，牛人真多啊！

cat c.txt|awk -v FS="[=,]" '!/(^ADD)/ {print $0} /(^ADD)/ {print ($2~/^[0-9]/?$2:"0"),($4~/^[0-9]/?$4:"0"),$0}' |awk '!/^[0-9]/ {close("sort -k1n -k2n");print}/ADD /{print $0|"sort -k1n -k2n"}'|sed -e 's/.*\(ADD \)\(.*\)/\1\2/g' > d4.txt
  /* MOC = MODULE */
ADD MODULE:MID=29,MT=SCU
ADD MODULE:MID=30,MT=SCU
ADD MODULE:MID=31,MT=SCU
ADD MODULE:MID=32,MT=SCU
ADD MODULE:MID=33,MT=SCU
ADD MODULE:MID=34,MT=SCU

/* MOC = LDMI */
ADD LDMI:LDID=0,ADDRT=DOMAINNAME
ADD LDMI:LDID=1,ADDRT=IPADDRESS

/* MOC = TDMI */
ADD TDMI:CID=0,TDID=1,ADDRT=DOMAINNAME
ADD TDMI:CID=0,TDID=2,ADDRT=IPADDRESS
ADD TDMI:CID=0,TDID=10,ADDRT=IPADDRESS
ADD TDMI:CID=2,TDID=0,ADDRT=IPADDRESS