不一致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演示