perl正則表達式刪除特定行

-1

某些條目沒有任何逗號，因爲它們是副標題。我想刪除這些行。

下面的示例數據（原諒通用數據）
我想要一個正則表達式/ perl一個班輪刪除所有的字幕行。預先感謝您

Title1 Books, 
subtitleA 
items,1,2,3,4 
days,1,2,3,4 
subtitleB 
items,1,2,3,4 
days,1,2,3,4 
Title2 Posters, 
subtitleC 
items,1,2,3,4 
days,1,2,3,4 
subtitleD 
items,1,2,3,4 
days,1,2,3,4

來源

2014-12-13 tman

'的grep -v，file' – toolic 2014-12-13 17:41:14

使用下面的正則表達式匹配所有沒有逗號的行。

^[^,\n]+$

或

^[^,\n]*$

後，你可以刪除匹配的行。

Perl單線程。

$ perl -ne 'print unless /^[^,]+$/' file 
$ perl -ne 'print unless /^[^,\n]+$/' file 
Title1 Books, 
items,1,2,3,4 
days,1,2,3,4 
items,1,2,3,4 
days,1,2,3,4 
Title2 Posters, 
items,1,2,3,4 
days,1,2,3,4 
items,1,2,3,4 
days,1,2,3,4

來源

2014-12-13 17:18:58

使用-i在地方編輯，

perl -i -ne 'print if /,/' file

來源

2014-12-13 17:22:37

perl正則表達式刪除特定行

回答

相關問題