replace - 如何使用 perl/shell 脚本替换文本？

Question

我有一个模式

猫样本.text

\newline</Text>

我正在使用以下命令：

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

但以下命令不起作用。

Answer 1

你只是想摆脱之前的换行符</Text>吗？这只是一个简单的替换：

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

Answer 2

这可能对您有用（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 3

我自己找到了解决方案，所以想与大家分享。

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