Re: Re: Replacing multiple spaces into one character?

[blakem]

you could also use the magical ' ' (single space) arg to split, which will remove leading spaces as well...

#!/usr/bin/perl -wT
use strict;

my $str ='   Perlmonks is     a      very    cool place  ';
$str = join '_', split ' ', $str;
print $str, "\n";

=OUTPUT
Perlmonks_is_a_very_cool_place

-Blake

[tachyon]

Thanks blakem that null string that you get using /\s+/is a pain. I never realised that ' ' was magical.

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

[blakem]

Yeah, its a little screwy. ' ' is magical, but / / is not. I admit to checking the docs on occasion to remember which one is which.

-Blake