正則表達式perl替換

Question

我有一個文件，並且該單詞出現在行的中間，基於需要從該行開始替換的單詞，直到該模式匹配。

採樣線：

the browser separates off the name/value pairs and other information which is sent in the header and puts it in

在這裏我們需要查找的單詞other，並從該行的開始提前the

由於更換，直到字other。

Answer 1

可能是你期待這樣的：

use strict; 
use warnings; 

while(<DATA>) { $_=~s/^((?:(?!other).)*)other//i; print $_; } 

__DATA__ 
the browser separates off the name/value pairs and other information which is sent in the header and puts it in 

輸出：

information which is sent in the header and puts it in