仅在 perl 正则表达式中匹配最后一次出现答案

【问题标题】：Match last occurrence only in perl regex仅在 perl 正则表达式中匹配最后一次出现
【发布时间】：2021-07-18 04:58:33
【问题描述】：

/1.1/s/1/-/g

我正在做学校作业以参考实施 sed 命令。我得到这个字符串来匹配“/1/-/”。我有实验

$str =~ m{/[^/]*/[^/]*/}g;

但结果是/1.1/s/。我怎样才能只得到“/1/-/” 有人可以帮我吗？

【问题讨论】：

在末尾添加\z
由于匹配是“贪婪的”，你只需要告诉匹配在开始时忽略其他字符：m{.*/^/]*/[^/]*/}。在开头添加.* 匹配任何前导的漂浮物，并且只返回最后一个匹配项。

标签： regex perl

【解决方案1】：

使用

/[^/]*/[^/]*/(?=[^/]*$)

见proof。

解释

--------------------------------------------------------------------------------
  /                        '/'
--------------------------------------------------------------------------------
  [^/]*                    any character except: '/' (0 or more times
                           (matching the most amount possible))
--------------------------------------------------------------------------------
  /                        '/'
--------------------------------------------------------------------------------
  [^/]*                    any character except: '/' (0 or more times
                           (matching the most amount possible))
--------------------------------------------------------------------------------
  /                        '/'
--------------------------------------------------------------------------------
  (?=                      look ahead to see if there is:
--------------------------------------------------------------------------------
    [^/]*                    any character except: '/' (0 or more
                             times (matching the most amount
                             possible))
--------------------------------------------------------------------------------
    $                        before an optional \n, and the end of
                             the string
--------------------------------------------------------------------------------
  )                        end of look-ahead

【讨论】：