替換<與<無處不在，但在反引號內

Question

我有一個包含代碼的多行$string。我想用<和>替換所有的<和>字符，但是在反引號內部。

例子：

Here a < and a ` some foo < stuff` 

輸出：

Here a &lt; and a ` some foo < stuff` 

什麼來實現它在Perl中最簡單的方法？

Answer 1

您還沒有很好地定義您的問題，但是這會替換所有既不立即也不立即跟隨反斜槓的<標誌。

use strict; 
use warnings; 

while (<DATA>) { 
    s/(?<!`)<(?!`)/&lt;/g; 
    print; 
} 

__DATA__ 
Here a < and a `<` and Here a < and a `<` 
Here a < and a `<` 

輸出

Here a &lt; and a `<` and Here a &lt; and a `<` 
Here a &lt; and a `<` 

---

更新

好了，你可以有反引號內的任何數據，包括換行符（我想，但你似乎不願意說）如果你把整個文件讀入一個標量變量，處理起來就容易多了。

這可以通過查找所有反向附加的子字符串或小於號<，並用<替換前者。

use strict; 
use warnings; 

my $data = do { 
    local $/; 
    <DATA>; 
}; 

$data =~ s{ (`[^`]*`) | < }{ $1 // '&lt;' }egx; 
print $data; 

__DATA__ 
Here a < and a ` some foo < stuff` 
Here a < and a ` some foo < 
stuff` 
Here a < and a ` some foo < stuff` 

輸出

Here a &lt; and a ` some foo < stuff` 
Here a &lt; and a ` some foo < 
stuff` 
Here a &lt; and a ` some foo < stuff`