Chinaunix

标题: 【未解决】求个正则表达式! [打印本页]

作者: zzy7186    时间: 2016-04-28 15:06
标题: 【未解决】求个正则表达式!
本帖最后由 zzy7186 于 2016-04-28 15:45 编辑

必须包含数字、大写字母、小写字母、特殊字符中的至少三种字符 长度6-18位 谢了
作者: sunzhiguolu    时间: 2016-04-28 15:17
所谓特殊字符有个范围没有.
作者: zzy7186    时间: 2016-04-28 15:19
本帖最后由 zzy7186 于 2016-04-28 15:20 编辑

回复 2# sunzhiguolu
  1. \d[a-z][A-W]`!@#$%^&*()_+{}\|;:'"<,.>?/
复制代码
列出了数字 小写字母 大写字母 特殊字符
作者: sunzhiguolu    时间: 2016-04-28 16:02
回复 3# zzy7186
试下,

  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;

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

作者: zzy7186    时间: 2016-04-28 16:03
回复 4# sunzhiguolu


    能说下思路么 ??
作者: zzy7186    时间: 2016-04-28 16:06
回复 4# sunzhiguolu


    恩恩 就这么搞好了 感觉没有别的思路了
作者: sunzhiguolu    时间: 2016-04-28 16:10
回复 5# zzy7186
执行流程:
1.> 长度校验, 不满足 16~18 范围的跳过
2.> 表达式校验 (2.1, 2.2, 2.3, 2.4 任意一个表达式结果, 个数小于 3 的跳过)
2.1> 小写字母
2.2> 大写字母
2.3> 数字
2.4> 除了 小写字母, 大写字母, 数字 之外的字符

   
作者: haooooaaa    时间: 2016-04-28 16:18
本帖最后由 haooooaaa 于 2016-04-28 16:36 编辑

参考:
http://stackoverflow.com/questio ... ecial-character-and
  1. grep -P '^(?=(.*\d){0,})(?=(.*[a-z]){0,})(?=(.*[A-Z]){0,})(?=.*([`\!@#$%^&*()_+{}\|;:"<,.>?/]){0,})[0-9a-zA-Z`\!@#$%^&*()_+{}\|;:"<,.>?/]{6,18}'
复制代码

作者: zzy7186    时间: 2016-04-28 16:20
回复 8# haooooaaa


    666 研究下 3q
作者: zzy7186    时间: 2016-04-28 16:20
回复 7# sunzhiguolu


    恩恩 看出来了 3q
作者: elu_ligao    时间: 2016-04-28 16:32
  1. echo 'as3`$!' | grep -P '^(?![\da-z]+$)(?![\dA-Z]+$)(?![\d`\!@#$%^&*()_+{}\|;:"<,.>?/]+$)(?![a-z`\!@#$%^&*()_+{}\|;:"<,.>?/]+$)(?![a-zA-Z]+$)(?![A-Z`\!@#$%^&*()_+{}\|;:"<,.>?/]+$)[a-zA-Z\d`\!@#$%^&*()_+{}\|;:"<,.>?/]{6,18}
复制代码

作者: q1208c    时间: 2016-04-29 12:35
这不是在做密码的校验么。
作者: cao627    时间: 2016-04-30 09:02
本帖最后由 cao627 于 2016-04-30 09:11 编辑

@haooooaaa
  1. $ echo "aAzzzzzzzzzzzzzzzz"|grep -P '^(?=(.*\d){0,})(?=(.*[a-z]){0,})(?=(.*[A-Z]){0,})(?=.*([`\!@#$%^&*()_+{}\|;:"<,.>?/]){0,})[0-9a-zA-Z`\!@#$%^&*()_+{}\|;:"<,.>?/]{6,18}'
复制代码
如上,只含有大写字母和小写字母两种字符,不满足需求,也会被匹配。
  1. $ echo "aA1zzzzzzzzzzzzzz"|grep -P '^(?=(.*\d){1,})(?=(.*[a-z]){1,})(?=(.*[A-Z]){1,})(?=.*([`\!@#$%^&*()_+{}\|;:"<,.>?/]){1,})[0-9a-zA-Z`\!@#$%^&*()_+{}\|;:"<,.>?/]{6,18}'
复制代码
如上,含有小写字母,大写字母,数字,这三种字符,满足要求,但是不会被匹配。
作者: wh7211    时间: 2016-04-30 15:12
本帖最后由 wh7211 于 2016-04-30 15:21 编辑

回复 1# zzy7186
  1. echo "233DDDDa_&#DDDDDDD"|awk -F "" '/[A-Z]/{a[1]++}/[a-z]/{a[2]++}/[0-9]/{a[3]++}/[^A-Za-z0-9]/{a[4]++}END{s=length(a);print "字符类型数量是:"s"\n字符长度是:"NF;if(s>=3&&NF>=6&&NF<=18)print "满足条件"}'
  2. 字符类型数量是:4
  3. 字符长度是:18
  4. 满足条件
复制代码

作者: sunzhiguolu    时间: 2016-05-02 20:13
本帖最后由 sunzhiguolu 于 2016-05-02 21:43 编辑

回复 1# zzy7186
缺少了一个最少字符种类数量为 3 的验证了.
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;

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





欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2