如何使用perl/shell腳本替換文本？

Question

我有一個模式

貓sample.text

\newline</Text> 

我使用下面的命令：

sed ':a; N; $!ba; s|\newline</Text>|</Text>|g' sample.text 

，但下面的命令不能正常工作。

Answer 1

這可能會爲你工作（GNU SED）：

sed '$!N;s/\n\(<\/Text>\)/\1/;P;D' file 

或

sed -r '$!N;s|\n(</Text>)|\1|;P;D' file 

但是，如果\newline是文字：

sed 's/\\newline\(<\/Text>\)/\1/g' file 

或

sed -r 's|\\newline(</Text>)|\1|g' file 

會工作得很好。

Answer 2

我剛剛發現解決方案，我自己想和大家分享。

sed ':a; N; $!ba; s|\\newline<\/Text>|</Text>|g' sample.text 

Answer 3

你只是想擺脫</Text>之前的換行符？這只是一個簡單的替換：

gawk -vRS='\0' -vORS= '{gsub(/\n<\/Text>/,"</Text>")}1' file