不一致ID的PERL正则表达式，在第4位数字后结束

Question

我尝试使用似乎有效的方法。

^ *＃[0-9] {4} $

测试＃1234

除此之外，也可以接受为有效输入。

测试＃1234＃1234

我该如何做到这一点，以便在4位数字之后不妨碍初始匹配的情况下不接受其他字符？

先谢谢您的帮助。

Answer 1

我会用：

$string =~ /^\D+#\d{4}$/

\\D代表不是数字的任何字符。

Answer 2

一种方法是使用否定的前瞻，它断言在匹配第一个模式之后#1234模式不会发生：

^[^#]*#[0-9]{4}(?!.*#[0-9]{4}).*$

Regex101

Perl演示