Re: Removing extra spaces

[Athanasius]

Update: rickoy, welcome to the Monastery!

The specification is a little unclear, but assuming you want to (a) remove all single spaces, and (b) squash all sequences of 2 or more spaces down to a single space:

#! perl
use strict;
use warnings;

my $string = ' 2 0 1 2 - 7 - 2 7  9 : 3 7 : 3 1 ';
#             NB: 2 spaces here ^^

# (a) Remove single spaces
1 while $string =~ s/(^|[^ ])[ ]([^ ]|$)/$1$2/g;

# (b) Squash multiple spaces down to one
$string =~ s/[ ]{2,}/ /g;

print "'", $string, "'\n";

Outputs:

'2012-7-27 9:37:31'

HTH,