Re: [MLUG] perl question

[Stephen Montgomery-Smith <EMAIL:PROTECTED>]

Mike Miller wrote:
> 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

perl -p -i -e 's/x//g if /^1/' the_file

(but I didn't test it)


> 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


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