How to replace text using perl/shell script?

Question

I have one pattern

cat sample.text

\newline</Text>

I'm using the following command:

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

but following command is not working.

potong · Accepted Answer · 2013-02-27 07:51:16Z

2

This might work for you (GNU sed):

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

or

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

However if \newline is a literal:

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

or

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

Would work just as well.

answered Feb 27, 2013 at 7:51

potong

59.3k6 gold badges55 silver badges92 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Ed Morton · Accepted Answer · 2013-02-27 15:01:38Z

2

Are you just trying to get rid of the newlines before </Text>? That's just a simple substitution:

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

answered Feb 27, 2013 at 14:53

Ed Morton

209k18 gold badges90 silver badges212 bronze badges

Manish · Accepted Answer · 2013-02-27 06:50:04Z

0

I just found solution myself so thought to share with everyone.

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

answered Feb 27, 2013 at 6:50

Manish

3,55918 gold badges58 silver badges91 bronze badges