僅在 perl 正則表達式中匹配最后一次出現

Question

/1.1/s/1/-/g

我正在做學校作業以參考實現 sed 命令。 我得到這個字符串來匹配“/1/-/”。 我有實驗

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

但結果是/1.1/s/。 我怎樣才能只得到“/1/-/”有人可以幫我嗎？

Answer 1

利用

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

見證明。

解釋

--------------------------------------------------------------------------------
  /                        '/'
--------------------------------------------------------------------------------
  [^/]*                    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