PERL 如何将字符串的最后 n 位与 n 位或更多位连续匹配？

Question

我使用以下内容：

if ($content =~ /([0-9]{11})/) {

    my $digits = $1;

}

从字符串中提取 11 个连续数字。 但是，它会抓取前 11 个连续数字。 如何让它提取最后 11 个连续数字，以便从带有 hdjf95724555199361 的字符串中得到 24555199361？

Answer 1

/([0-9]{11})/

方法

/^.*?([0-9]{11})/s   # Minimal lead that allows a match.

通过使.*变得贪婪，你得到了你想要的。

/^.*([0-9]{11})/s    # Maximal lead that allows a match.

Answer 2

每当您想匹配字符串末尾的某些内容时，请使用行尾锚$ 。

$content =~ m/(\d{11})$/;

如果该模式不是最后一次，但您想匹配该模式的“最后一次”出现，则首先将“整个字符串”与/.*/匹配，然后回溯到该模式的最后一次出现。 /s标志允许. 匹配换行符的元字符。

$content =~ m/.*(\d{11})/s;

有关详细信息，请参阅Perl 正则表达式教程。