regex - Perl 正则表达式过滤字符串中的数字

Question

我确实有一个如下所示的字符串。我试图从该字符串中仅过滤掉 4 位数字。

输出应该是:1234 4567 3466

#!/usr/bin/perl  -w 

use strict ; 

my $str = "1234asdc345r4567srsrs45678rrrffgg3466";

my @arr =$str =~/(\d{4})/g;

问题是我得到的输出为:1234 4567 4567 3466。我不希望输出中包含 5 位数字。

Answer 1

您的模式 \d{4} 目前也进行部分匹配，这就是您未获得预期输出的原因。您可以使用 lookarounds 来告诉您正在寻找前面或后面没有数字的 4 位数字:

(?<!\d)(\d{4})(?!\d)

• Regex101 演示:https://regex101.com/r/yS7fG6/1
• 有关环顾四周的更多信息:http://www.regular-expressions.info/lookaround.html