replace - perl / shellスクリプトを使用してテキストを置き換える方法は？

Question

私は1つのパターンを持っています

cat 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

以前に改行を削除しようとしているだけ</Text>ですか？これは単純な置換です。

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

Answer 3

私は自分で解決策を見つけたので、みんなと共有しようと思いました。

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