求一个端口及端口范围的正则表达式

6954658

验证端口范围的，范围中间用-，每组范围间用,分开，如果只有一组范围则最后不能有逗号
可以一个范围比如1-100
也可以是二个范围比如1-100,2-200
也可以是多个范围比如1-100,2-200,3-300,4-400,5-65535

补充一下，还要可以正常验证端口，可以是一个也可以是多个。
所以就是同时要可以验证端口及端口范围，一个或者多个。

jason680

回复 1# 6954658

1. Question
input data
procedure
output data

2. Regular Express is not the best solution for this case   

6954658

回复 2# jason680


        我们要在一个自有的portal上验证用户的输入信息。只有regex这一种验证方式。类似javascript的实时验证，如果用户输错了，就显示红色，如果没错就正常显示。

6954658

回复 2# jason680


    ^([1-9]\d{0,3}|[1-5]\d{4}|6[0-5]{2}[0-3][0-5])(-([1-9]\d{0,3}|[1-5]\d{4}|6[0-5]{2}[0-3][0-5]))?$

这个是我现在使用的regex，但是只能过滤单个端口和单个端口范围，无法过滤多个

jason680

回复 4# 6954658

here you are

$ echo 2-122,139-555,777,888-1023,2-65533 | awk -F, 'function dg(c,n,r){for(n=1;n<=c;n++)r=r"[0-9]";return(r)}function re(x, c,d,t,r,cnt){t=split(x,a,"-");if(t==1)return(x"|");s=a[1];e=a[2];while(s<=e){if(s==e)return(r s"|");if(cnt++>15)return(r);t=10**c;sh=int(s/t/10);sh=sh?sh:"";ss=(int(s/t)%10);sn=(sh+1)*t*10;if(sn<=e){r=r sh "["ss"-9]"dg(c)"|";c++;s=sn;continue}if((e-s)/t<1){c--;continue};d=int((e-s)/t);r=r sh "["ss"-"ss+d-1"]" dg(c)"|";c--;s+=d*t}return(r"|")}{for(n=1;n<=NF;n++){p=p re($n)}for(n=1;n<=9;n++)gsub("\\["n"-"n"\\]",n,p);gsub("[|]$",")$",p);print "^("p}'
^([2-9]|[1-9][0-9]|1[0-1][0-9]|12[0-1]|122|139|1[4-9][0-9]|[2-4][0-9][0-9]|5[0-4][0-9]|55[0-4]|555|777|88[8-9]|89[0-9]|9[0-9][0-9]|10[0-1][0-9]|102[0-2]|1023|[2-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-5][0-9][0-9][0-9][0-9]|6[0-4][0-9][0-9][0-9]|65[0-4][0-9][0-9]|655[0-2][0-9]|6553[0-2]|65533)$

$ echo 2-122,139-555,777,888-1023,2-65533 | awk -F, 'function dg(c,n,r){for(n=1;n<=c;n++)r=r"\\d";return(r)}function re(x, c,d,t,r,cnt){t=split(x,a,"-");if(t==1)return(x"|");s=a[1];e=a[2];while(s<=e){if(s==e)return(r s"|");if(cnt++>15)return(r);t=10**c;sh=int(s/t/10);sh=sh?sh:"";ss=(int(s/t)%10);sn=(sh+1)*t*10;if(sn<=e){r=r sh "["ss"-9]"dg(c)"|";c++;s=sn;continue}if((e-s)/t<1){c--;continue};d=int((e-s)/t);r=r sh "["ss"-"ss+d-1"]" dg(c)"|";c--;s+=d*t}return(r"|")}{for(n=1;n<=NF;n++){p=p re($n)}for(n=1;n<=9;n++)gsub("\\["n"-"n"\\]",n,p);gsub("[|]$",")$",p);print "^("p}'
^([2-9]|[1-9]\d|1[0-1]\d|12[0-1]|122|139|1[4-9]\d|[2-4]\d\d|5[0-4]\d|55[0-4]|555|777|88[8-9]|89\d|9\d\d|10[0-1]\d|102[0-2]|1023|[2-9]|[1-9]\d|[1-9]\d\d|[1-9]\d\d\d|[1-5]\d\d\d\d|6[0-4]\d\d\d|65[0-4]\d\d|655[0-2]\d|6553[0-2]|65533)$


   

6954658

回复 5# jason680


    有点复杂，我研究下，多谢

donalds2008

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. my $ports="1,3-5,6,9-10,23-29";
   
5. print "=input="."\n"."$ports"."\n";
   
6. my @port_all=split ',',$ports;
   
7. print "=output="."\n";
   
8. foreach (@port_all){
   
9.    my @port_list=split '-';
   
10.    if(@port_list eq 2){
    
11.       foreach my $port ($port_list[0]..$port_list[1]){
    
12.          print "$port"."\n";
    
13.       }
    
14.    }
    
15.    else {
    
16.      print "$port_list[0]"."\n";
    
17.    }
    
18. }
    
19. 
    
20. =input=
    
21. 1,3-5,6,9-10,23-29
    
22. =output=
    
23. 1
    
24. 3
    
25. 4
    
26. 5
    
27. 6
    
28. 9
    
29. 10
    
30. 23
    
31. 24
    
32. 25
    
33. 26
    
34. 27
    
35. 28
    
36. 29
    

复制代码