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
\d[a-z][A-W]`!@#$%^&*()_+{}\|;:'"<,.>?/
复制代码
列出了数字 小写字母 大写字母 特殊字符
作者:
sunzhiguolu
时间:
2016-04-28 16:02
回复
3#
zzy7186
试下,
#!/usr/bin/perl
use strict;
use warnings;
my ($sMin, $sMax) = (16, 18);
while (<>){
chomp;
my $sLeng = length ($_);
next unless ($sLeng >= $sMin and $sLeng <= $sMax);
my $sPrint = 1;
foreach my $sRegx (qr/[a-z]/, qr/[A-Z]/, qr/[0-9]/, qr/[^a-zA-Z0-9]/){
if (grep (/$sRegx/, split //, $_) < 3){
$sPrint = 0;
last;
}
}
print "<$_>\n" if ($sPrint);
}
复制代码
作者:
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
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
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
$ echo "aAzzzzzzzzzzzzzzzz"|grep -P '^(?=(.*\d){0,})(?=(.*[a-z]){0,})(?=(.*[A-Z]){0,})(?=.*([`\!@#$%^&*()_+{}\|;:"<,.>?/]){0,})[0-9a-zA-Z`\!@#$%^&*()_+{}\|;:"<,.>?/]{6,18}'
复制代码
如上,只含有大写字母和小写字母两种字符,不满足需求,也会被匹配。
$ 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
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 "满足条件"}'
字符类型数量是:4
字符长度是:18
满足条件
复制代码
作者:
sunzhiguolu
时间:
2016-05-02 20:13
本帖最后由 sunzhiguolu 于 2016-05-02 21:43 编辑
回复
1#
zzy7186
缺少了一个最少字符种类数量为 3 的验证了.
#!/usr/bin/perl
use strict;
use warnings;
my ($sMin, $sMax) = (16, 18);
while (<>){
chomp;
my $sLeng = length ($_);
next unless ($sLeng >= $sMin and $sLeng <= $sMax);
my ($sPrint, $sCnt) = (1, 0);
foreach my $sRegx (qr/[a-z]/, qr/[A-Z]/, qr/[0-9]/, qr/[^a-zA-Z0-9]/){
if (grep (/$sRegx/, split //, $_) < 3){
$sPrint = 0;
last;
}
last if (++$sCnt > 2);
}
print "<$_>\n" if ($sPrint);
}
复制代码
欢迎光临 Chinaunix (http://bbs.chinaunix.net/)
Powered by Discuz! X3.2