sed/awk/perl: How to replace all spaces each with an underscore that occur before a specific string ?

sed/awk/perl: How to replace all spaces each with an underscore that occur before a specific string ? I really prefer a sed one liner. Example Input : This is my book. It is too thick to read. The author gets little royalty but the publisher makes a lot. Output:

Re: sed/awk/perl: How to replace all spaces each with an underscore that occur before a specific string ?

On Aug 22, 1:11 pm, bolega gnuist...@gmail.com wrote: sed/awk/perl: How to replace all spaces each with an underscore that occur before a specific string ? I really prefer a sed one liner. Example Input :  This is my book. It is too  thick to read. The author gets little royalty but the

Re: sed/awk/perl: How to replace all spaces each with an underscore that occur before a specific string ?

bolega wrote: sed/awk/perl: Better to post in the sed or perl mailing lists rather than a Python list. I saw an awk solution flew by. How to replace all spaces each with an underscore that occur before a specific string ? I really prefer a sed one liner. Here's a one-liner sed solution:

Re: sed/awk/perl: How to replace all spaces each with an underscore that occur before a specific string ?

22-08-2009 o 20:11:32 bolega gnuist...@gmail.com wrote: sed/awk/perl: How to replace all spaces each with an underscore that occur before a specific string ? $ rm -rf /home/bolega ; python -c 'for i in xrange(1000): print I will never crosspost senselessly.' ;~] -- Jan Kaliszewski (zuo)

Re: sed/awk/perl: How to replace all spaces each with an underscore that occur before a specific string ?

On Aug 22, 1:11 pm, bolega gnuist...@gmail.com wrote: sed/awk/perl: How to replace all spaces each with an underscore that occur before a specific string ? I really prefer a sed one liner. Why? Example Input :  This is my book. It is too  thick to read. The author gets little royalty

Re: sed/awk/perl: How to replace all spaces each with an underscore that occur before a specific string ?

bolega wrote: sed/awk/perl: How to replace all spaces each with an underscore that occur before a specific string ? I really prefer a sed one liner. Example Input : This is my book. It is too thick to read. The author gets little royalty but the publisher makes a lot. Output:

Re: sed/awk/perl: How to replace all spaces each with an underscore that occur before a specific string ?

John W. Krahn wrote: bolega wrote: sed/awk/perl: How to replace all spaces each with an underscore that occur before a specific string ? I really prefer a sed one liner. Example Input : This is my book. It is too thick to read. The author gets little royalty but the publisher makes a lot.