in reply to Re^2: addd spaces after caps & reduce whitespace to single space
in thread addd spaces after caps & reduce whitespace to single space

IMHO - no need for $1 and $2 capturing:
$string =~ s/(?<=.)([A-Z])/ $1/g;

[download]


Replies are listed 'Best First'.
Re^4: add spaces after caps & reduce whitespace to single space
by Tanktalus (Canon) on Feb 19, 2005 at 16:21 UTC

    As long as you're doing that ... 

    $ perl -e '$s="JustAnotherPerlHacker\n"; $s=~s/(?<=.)(?=[A-Z])/ /g; pr
+int $s'
Just Another Perl Hacker

    [download]
    By using zero-width assertions on both sides, we don't need to actually match anything. We're matching, literally, zero characters - we're matching simply a location with no length associated. Note, however, that I would make it just a bit different for a bit more flexibility:

    $s=~s/(?<=\S)(?=[[:upper:]])/ /g

    [download]

    Match the location between a non-space and a capital letter. Using a character class gives us flexibility for other languages.

    This may also be useful for splitting: 

    $ perl -e '$s="JustAnotherPerlHacker\n"; @a = split /(?<=\S)(?=[[:uppe
+r:]])/, $s; print "@a"'
Just Another Perl Hacker

    [download]
    Since split is splitting on nothing, there is nothing actually removed.

[reply]
[d/l]
[select]
    A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom