我希望脚本选择用户名。选择用户名的规则是：
我已经试过了：
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] 删除。
我来说两句