我想要一个脚本来选择用户名。选择用户名的规则是:
我试过这个:
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";
}
答案 0 :(得分:3)
作为一个perl正则表达式,可能是:
if ($username =~ qr{^(?=.*[A-Z])(?=.*\d)(?=.*[@#*=])(?!.* ).{5,10}$}s) ...
或者:
if ($username =~ qr{^(?=.*[A-Z])(?=.*\d)(?=.*[@#*=])[^ ]{5,10}$}s)