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

【问题标题】：Perl: How to match last n digits of a string with n consecutive digits or more?Perl：如何将字符串的最后 n 位与 n 位或更多位连续匹配？
【发布时间】：2022-01-11 05:52:35
【问题描述】：

我使用以下内容：

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

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

【问题讨论】：

以 .* 开始你的模式：任何字符（换行符序列除外）0 次或多次，贪婪地（默认情况下）。
感谢@CasimiretHippolyte $content =~ /.*([0-9]{11})/ 工作。如果你想把它作为答案，我很乐意接受。

标签： regex perl

【解决方案1】：

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

意思

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

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

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

如果数字出现在字符串的最末尾，您还可以使用以下内容：

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

【讨论】：

请注意，锚定对.* 没有那么有用，除非您还有其他未显示的内容。匹配已经从字符串的开头开始。在 Perl 编程期间，tchrist 多次提醒我。 :)
@briandfoy，关于“匹配已经从字符串的开头开始。”，不，不完全是。当然，第一次尝试将在位置 0，但它可以回溯并在位置 1、然后是位置 2、然后是位置 3 重试，等等。没有^，失败的匹配可能会变成二次方。

【解决方案2】：

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

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

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

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

请参阅Perl regexp tutorial 了解更多信息。

【讨论】：

Re "当你想匹配字符串末尾的东西时，使用行尾锚$。"，不，使用\z。这不是$ 所做的。
Re "m/.*(\d{11})/s"，不。正如前面的答案所示，你想要一个领先的\A（或^，如果不使用/m）避免对失败的匹配进行不必要的回溯