Perl腳本+刪除除了以「Only in」開頭的所有行

Question

我有一個文件有很多行。其中一些以「Only in」開頭。所以我想只保留以「Only in」開頭的行，並刪除其餘的行。有人可以告訴我可以使用哪種正則表達式命令。

類似於「％s /！（只在）/ rm -rf那行」對不起，在這裏混用了verilog，unix和perl。有人可以幫助我一樣

Answer 1

perl -ne 'print if /^Only in /' file 

另請參見grep。

Answer 2

perl -i -ne '/^Only in/ and print' file 

而且在腳本：

use strict; use warnings; 

$INPLACE_EDIT = 1; 

while (<>) { 
    /^Only in/ and print; 
} 

無論是2個解決方案取代內嵌無需自行創建臨時文件。