Re: Removing extra spaces

Try this regex:

   s/\s\s?(\S)/$1/g
[download]

Update: See the correction below. Thanks Anonymonk and davido.

I hope life isn't a big joke, because I don't get it.
-SNL

Comment on Re: Removing extra spaces Download Code

Replies are listed 'Best First'.
Re^2: Removing extra spaces by Anonymous Monk on Jul 31, 2012 at 06:42 UTC
Close, just drop the `\s?` and it works. `$ perl -E '$s="2 0 1 2 - 7 - 2 7 9 : 3 7 : 3 1"; $s =~ s/\s\s?(\S)/$1 +/g; say $s' 2012-7-279:37:31 $ perl -E '$s="2 0 1 2 - 7 - 2 7 9 : 3 7 : 3 1"; $s =~ s/\s(\S)/$1/g; + say $s' 2012-7-27 9:37:31` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Removing extra spaces
by Anonymous Monk on Jul 31, 2012 at 06:42 UTC

Close, just drop the \s? and it works.

$ perl -E '$s="2 0 1 2 - 7 - 2 7  9 : 3 7 : 3 1"; $s =~ s/\s\s?(\S)/$1
+/g; say $s'
2012-7-279:37:31

$ perl -E '$s="2 0 1 2 - 7 - 2 7  9 : 3 7 : 3 1"; $s =~ s/\s(\S)/$1/g;
+ say $s'
2012-7-27 9:37:31
[download]

[reply]
[d/l]
[select]