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

Posted 2023-03-24

【中文标题】Perl：如何将字符串的最后 n 位与 n 位或更多位连续匹配？

【英文标题】：Perl: How to match last n digits of a string with n consecutive digits or more?

【发布时间】：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)/ 工作。如果你想把它作为答案，我很乐意接受。

【参考方案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/(\d11)$/;

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

$content =~ m/.*(\d11)/s;

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

【讨论】：

Re "当你想匹配字符串末尾的东西时，使用行尾锚$。"，不，使用\z。这不是$ 所做的。

Re "m/.*(\d11)/s"，不。正如前面的答案所示，你想要一个领先的\A（或^，如果不使用/m）避免对失败的匹配进行不必要的回溯