regex - Perl - 生成所有匹配的字符串到正则表达式

Question

我对 perl 有点陌生，我想知道是否有办法生成与正则表达式匹配的所有组合。

生成所有匹配字符串的最佳方法是:

05[0,2,4,7][\d]{7}

提前致谢。

Answer 1

虽然您不能只采用任何正则表达式并生成可能适合的任何字符串，但在这种情况下，您可以轻松适应和克服。

您可以使用 glob 生成组合:

perl -lwe "print for glob '05{0,2,4,7}'"
050
052
054
057

然而，我不应该告诉你 \d{7}实际上意味着相当多的几百万个组合，对吧？生成一个数字列表很简单，格式化它们可以用 sprintf 来完成。 :

my @nums = map sprintf("%07d", $_), 0 .. 9_999_999;

那是假设您只是在寻找 0-9 数字。

将这些数字与球形数字结合起来:Tada。