更換所有的話，除了一個 - Perl的正則表達式

Question

我嘗試有一個正規表示這將改變"dir1/dir2/"到"dir1/dir3/" 只有dir2不tmp，如果是tmp，我希望它不會改變，保持"dir1/tmp"。

我想我需要一個超前正則表達式，但我無法管理。

Answer 1

您可以在應用s ////之前使用if語句....使用m檢查//如果tmp不存在然後替換。

Answer 2

您可以使用否定前向斷言做替代僅如果沒有tmp後/dir1：

s#(dir1/)(?!tmp/)[^/]+#\1/dir3#; 

See it

Answer 3

s{^([^/]+)/(?!tmp/)[^/]+/}{$1/dir3/}