Comment out lines 15 thru 31

[Shabu Khan-2]

I see another opportunity to use perl -p -i -e here.

I need to comment out lines 15 through 31 in a xml file.

# perl -ne 'print if 21 .. 31' server.xml

prints lines 21 thru 31, I need to comment these:


Thoughts?

Thanks,
Shabu

[Hein van den Heuvel · Accepted solution]

This 'one liner' will do that:

$ perl -pe 'BEGIN{$f = shift; $l=shift} s/^// if $.==$l ' 15 21 test.xml

fwiw,
Hein.

[James R. Ferguson]

Hi Shabu:

# perl -pi -e 's/(.*)/#$1/ if 21..31' file

Regards!

...JRF...

[Shabu Khan-2]

Thanks for responding folks.

I went ahead and used this solution and did inplace editing.

# perl -p -i.bak -e 'BEGIN{$f = shift; $l=shift} s/^// if $.==$l' 21 36 server.xml

Closing this out.

Thanks,
Shabu