如何在perl sed-like find/replace命令中跳過不匹配？

Question

鑑於這種簡單的sed命令：

echo "abc\nxyz" | sed "s/abc/***/" 

等效Perl版本是

echo "abc\nxyz" | perl -pe "s/abc/***/" 

桑達讓我只輸出匹配的行這樣的：

echo "abc\nxyz" | sed -n "s/abc/***/p" 

如何做到這一點與Perl的？我想使用Perl的正則表達式引擎，它比sed更加全面，但是我想要這個sed選項。

Answer 1

在Perl -p開關設置了一個隱含的循環，在輸入迭代，並打印的$_循環的每次迭代後的內容。 Perl中也有-n開關需要，這隱含的循環內的代碼處理其自己的輸出：

echo "abc\nxyz" | perl -ne 's/abc/***/ && print'

的-p和-n開關在perlrun說明。

總之，-p形成一個隱含的循環，看起來是這樣的：

while(<>) { 
    # Your code goes here... 
} 
continue { 
    print; 
} 

而且-n形成一個隱含的循環，看起來是這樣的：

while(<>) { 
    # Your code goes here.... 
} 

因此，與-n，你必須明確指定何時產生輸出，以及該輸出應該是什麼。通過重新獲得對輸出的控制，您可以合併允許「打印」僅在符合某些條件（例如正則表達式匹配）時發生的邏輯。在我的例子中，如果匹配成功，我們使用邏輯短路來觸發打印。

Answer 2

Perl的-p選項意味着在輸入的每一行上執行-e ...的操作，然後打印。更改爲-n表示讀取文件的每一行，然後分別執行-e ...。所以，你要啥子實現的一個簡單的方法如下：

echo "abc\nxyz" | perl -ne "print if s/abc/***/"