【未解决】求个正则表达式！

sunzhiguolu

所谓特殊字符有个范围没有.

sunzhiguolu

回复 3# zzy7186
试下,

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my ($sMin, $sMax) = (16, 18);
   
7. while (<>){
   
8.     chomp;
   
9.     my $sLeng = length ($_);
   
10.     next unless ($sLeng >= $sMin and $sLeng <= $sMax);
    
11.     my $sPrint = 1;
    
12.     foreach my $sRegx (qr/[a-z]/, qr/[A-Z]/, qr/[0-9]/, qr/[^a-zA-Z0-9]/){
    
13.         if (grep (/$sRegx/, split //, $_) < 3){
    
14.             $sPrint = 0;
    
15.             last;
    
16.         }
    
17.     }
    
18.     print "<$_>\n" if ($sPrint);
    
19. }
    

复制代码

sunzhiguolu

回复 5# zzy7186
执行流程:
1.> 长度校验, 不满足 16~18 范围的跳过
2.> 表达式校验 (2.1, 2.2, 2.3, 2.4 任意一个表达式结果, 个数小于 3 的跳过)
2.1> 小写字母
2.2> 大写字母
2.3> 数字
2.4> 除了 小写字母, 大写字母, 数字 之外的字符

   

sunzhiguolu

回复 1# zzy7186
缺少了一个最少字符种类数量为 3 的验证了.

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($sMin, $sMax) = (16, 18);
   
6. while (<>){
   
7.     chomp;
   
8.     my $sLeng = length ($_);
   
9.     next unless ($sLeng >= $sMin and $sLeng <= $sMax);
   
10.     my ($sPrint, $sCnt) = (1, 0);
    
11.     foreach my $sRegx (qr/[a-z]/, qr/[A-Z]/, qr/[0-9]/, qr/[^a-zA-Z0-9]/){
    
12.         if (grep (/$sRegx/, split //, $_) < 3){
    
13.             $sPrint = 0;
    
14.             last;
    
15.         }
    
16.         last if (++$sCnt > 2);
    
17.     }
    
18.     print "<$_>\n" if ($sPrint);
    
19. }

复制代码