in reply to Removing extra spaces
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,
Athanasius <°(((>< contra mundum
|
---|
In Section
Seekers of Perl Wisdom