我希望脚本选择用户名。选择用户名的规则是:
我已经试过了:
if (( length $passwd[$i]<=10 && length $passwd[$i]>=5 && $passwd[$i] =~ /.*\p{Lu}/ && $passwd[$i] =~ tr/0-9//cd && $passwd[$i] =~ /[a-z]/ ))
{
print "PASS\n";
}
else
{
print "FAIL\n";
}
作为一个perl正则表达式,它可以是:
if ($username =~ qr{^(?=.*[A-Z])(?=.*\d)(?=.*[@#*=])(?!.* ).{5,10}$}s) ...
要么:
if ($username =~ qr{^(?=.*[A-Z])(?=.*\d)(?=.*[@#*=])[^ ]{5,10}$}s)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句