[MLUG] perl question

[Mike Miller <EMAIL:PROTECTED>]

This must be something I can do in a one-liner:  Suppose I have a file 
where I want to remove all occurances of a certain character from lines 
that match a pattern, like all 'x' characters from every line that begins 
with '1':

3 7 x 5 x 9
1 x 2 2 z x
9 9 9 x 9 9
1 2 23 x 7

Maybe I want to replace every 'x' with a space only when the first 
character in the line is a '1', otherwise I leave the x's alone.  Any 
ideas?

The way I would do it is lame:  Remove the lines beginning with 1, process 
them, then put them back.  I would do egrep twice (once with -v), maybe 
using cat -n to add line numbers, then take out the x's and put them back 
together, sort, take out the line numbers.  That is embarrassing though.

Mike

_______________________________________________
members mailing list
EMAIL:PROTECTED
http://mlug.missouri.edu/mailman/listinfo/members