in reply to Re: Looking for white spaces between words
in thread Looking for white spaces between words

That works great to replace all spaces. However, as a casual observer, I'm not sure this is what was asked. Were all the spaces to be replaced with the non-breaking spaces, or just those after the first one, leaving one space without the replacement. So: 
"the lazy  brown   fox    jumped..."

[download]
But I would like to expand the question a bit. I would like to see all spaces removed with the exception of just one separating the words, and then have that replace with the non-breaking space. So: 
"the lazy brown fox jumped..."

[download]

—Brad
"A little yeast leavens the whole dough."

Replies are listed 'Best First'.
Re^3: Looking for white spaces between words
by Enlil (Parson) on Jun 10, 2004 at 20:55 UTC
    That works great to replace all spaces. However, as a casual observer, I'm not sure this is what was asked. Were all the spaces to be replaced with the non-breaking spaces, or just those after the first one, leaving one space without the replacement. So: 
    "the lazy  brown   fox    jumped..."

    [download]

    This should work: 

    $foo =~ s/(?<= )( +)/'&nbsp;' x length($1)/ge

    [download]

    But I would like to expand the question a bit. I would like to see all spaces removed with the exception of just one separating the words, and then have that replace with the non-breaking space. So:

    "the lazy&nbsp;brown&nbsp;fox&nbsp;jumped..."

    [download]

    Can be solved thusly: 

    $foo =~ s/ {2,}/&nbsp;/g;

    [download]
    I believe this answers both requests unless I am misreading something.

    -enlil

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom