如何修改Perl风格正则表达式以排除空格输入？

没问题，我来帮你调整这个正则，让它拒绝包含空格的输入。基于Perl的正则实现，有两种简洁的修改方式，都能达到你的需求：

方法一：添加负向先行断言 #

在现有正向预查的后面，加入一个负向先行断言来检查字符串中是否存在空格，一旦发现就直接不匹配。修改后的完整正则如下：

^(?=.*?[A-Z])(?=.*?[a-z])(?=.*?[0-9])(?=.*?[#?!@$%^&*-])(?!.*\s).{8,15}$

解释 #

• (?!.*\s) 这个断言会在匹配开始前扫描整个字符串，确保没有任何空白字符（包括普通空格、制表符、换行符等）。如果你只想排除普通空格，不想管其他空白，可以把\s换成空格字符，也就是(?!.* )。

方法二：限制匹配字符为非空白 #

把原正则中匹配任意字符的.替换成排除空白的字符集[^\s]，这样整个长度匹配部分只会接受非空白字符。修改后的正则是：

^(?=.*?[A-Z])(?=.*?[a-z])(?=.*?[0-9])(?=.*?[#?!@$%^&*-])[^\s]{8,15}$

解释 #

• [^\s] 表示匹配除了空白字符之外的任意字符，这样整个8-15位的匹配就不会包含空格，从根源上限制了输入中不能有空格。

两种方法效果等价，你可以根据自己的习惯选择。如果想保持原正则的结构，方法一更直观；如果想直接限制字符范围，方法二更直接。

内容的提问来源于stack exchange，提问作者LogronJ