IP段排序問(wèn)題

674949301

請(qǐng)教各位大俠

我有一個(gè)文件，內(nèi)容如下
1.1.1.1,4.4.4.4/8,2.2.2.2,5.5.5.5/16,3.3.3.3,6.6.6.6/32
想通過(guò)正則，將其處理成兩個(gè)并排序輸出:
1.1.1.1,2.2.2.2,3.3.3.3
4.4.4.4/8,5.5.5.5/16,6.6.6.6/32

夜色58

xargs -n2 filename

moperyblue

1. echo 'awk -F, 'function p(arr){for(i=1;i<=asort(arr);i++)printf (i==1?"":FS) arr[i];print""};{for(i=1;i<=NF;i++)if($i~/\//)b[$i]=$i;else a[$i]=$i}END{p(a);p(b)}'

復(fù)制代碼

1. echo '1.1.1.1,4.4.4.4/8,2.2.2.2,5.5.5.5/16,3.3.3.3,6.6.6.6/32'|tr ',' '\n'|sort -n|sed '/\//!{:a;N;/\n.*\//!{s/\n/,/;ta};P;D};:b;N;s/\n/,/;tb'

復(fù)制代碼

1.1.1.1,2.2.2.2,3.3.3.3
4.4.4.4/8,5.5.5.5/16,6.6.6.6/32

sunzhiguolu

1. echo '1.1.1.1,4.4.4.4/8,2.2.2.2,5.5.5.5/16,3.3.3.3,6.6.6.6/32'|perl -pe 'BEGIN{$r=qr/\d(?:\.\d){3}/}{while(s%((?:,$r/\d+)+)(,$r)(?!/)%$2$1%g){}s!,(?=$r/\d+)!"\n"!e}'

復(fù)制代碼

1.1.1.1,2.2.2.2,3.3.3.3
4.4.4.4/8,5.5.5.5/16,6.6.6.6/32

sunzhiguolu

如果不是特別在意結(jié)尾的 "," 的話, 試下:

1. echo '1.1.1.1,4.4.4.4/8,2.2.2.2,5.5.5.5/16,3.3.3.3,6.6.6.6/32'|perl -pe 's{(.*)}{join ",",map {$_="\n$_" if(m~/~ and !$P++);$_} sort split(/,/,$1)}e'

復(fù)制代碼

1.1.1.1,2.2.2.2,3.3.3.3,
4.4.4.4/8,5.5.5.5/16,6.6.6.6/32

hz_oracle

1. awk -F, '{for(i=1;i<=NF;i++)if($i !~/\//)printf $i",";print ""}{for(i=1;i<=NF;i++)if($i ~/\//)printf $i",";print ""}' file | sed 's/,$//'

復(fù)制代碼

1.1.1.1,2.2.2.2,3.3.3.3
4.4.4.4/8,5.5.5.5/16,6.6.6.6/32

hjfeng1988

1. echo "1.1.1.1,4.4.4.4/8,2.2.2.2,5.5.5.5/16,3.3.3.3,6.6.6.6/32" | awk -F, '{for(i=1;i<=NF;i++){if($i~/\//)b=b?b","$i:$i;else a=a?a","$i:$i}}END{print a"\n"b}'

復(fù)制代碼

只分類(lèi)，沒(méi)排序

dacheng

#!/usr/bin/perl -w
while(<>){
@d1=(/(\d\.\d\.\d\.\d\/\d+)/g);
@d2=(/(\d\.\d\.\d\.\d)(?=,|$)/g);
foreach(@d1) {
   print $_,"\n";
}
print "\n";

foreach(@d2){
   print $_,"\n";
}
}

reb00t

1. In [38]:  d
   
2. Out[38]: '1.1.1.1,4.4.4.4/8,2.2.2.2,5.5.5.5/16,3.3.3.3,6.6.6.6/32'
   
3. 
   
4. In [39]:
   
5. 
   
6. In [39]: dd = d.split(',')
   
7. 
   
8. In [40]: dd
   
9. Out[40]: ['1.1.1.1', '4.4.4.4/8', '2.2.2.2', '5.5.5.5/16', '3.3.3.3', '6.6.6.6/32']
   
10. 
    
11. In [41]: sorted(filter(lambda x: not  '/' in x, dd))
    
12. Out[41]: ['1.1.1.1', '2.2.2.2', '3.3.3.3']
    
13. 
    
14. In [43]: sorted(filter(lambda x: '/' in x, dd))
    
15. Out[43]: ['4.4.4.4/8', '5.5.5.5/16', '6.6.6.6/32']
    

復(fù)制代碼

jason680

回復(fù) 1# 674949301

$ awk -F, '{s=$1;e=$2;for(n=3;n<NF;++n){s=s","$n;e=e","$++n}print s"\n"e}' FILE
1.1.1.1,2.2.2.2,3.3.3.3
4.4.4.4/8,5.5.5.5/16,6.6.6.6/32