Re: regex to remove space

in reply to regex to remove space

To preserve the leading space and first word, use the \K token, (for keep), and the transliteration operator, tr, inside a substitution.

#!/usr/bin/perl
use strict;
use warnings;

while (<DATA>) {
    s[^\s*\S+\K(.*)$][$1 =~ tr/ \t/,/rs]e;
    print;
}

__DATA__
I like  this     script
     I like   this script
[download]

Output is:

I,like,this,script
     I,like,this,script
[download]

Comment on Re: regex to remove space Select or Download Code

Replies are listed 'Best First'.
Re^2: regex to remove space by graff (Chancellor) on Dec 16, 2015 at 04:42 UTC
I think there's an easier way: `s/(?<=\S) +/,/g;` [download] That replaces one or more contiguous spaces with comma throughout the string, but only if there's a non-space character preceding (positive look-behind).	[reply] [d/l]
Re^3: regex to remove space by perlUser345 (Acolyte) on Dec 16, 2015 at 17:20 UTC
You sir deserve more upvotes! Lol, thank you so much!	[reply]

In Section Seekers of Perl Wisdom