Question

I am trying to figure out how to split a string that has three possible delimiters (or none) without a million lines of code but, code is still legible to a guy like me.

Many possible combinations in the string.

    this-is_the.string
    this.is.the.string
    this-is_the_string
    thisisthestring

There are no spaces in the string and none of these characters:

 ~`!@#$%^&*()+=\][{}|';:"/?>,<.

The string is already stripped of all but:

0-9
a-Z
-
_ 
.

There are also no sequential dots, dashes or underscores.

I would like the result to be displayed like Result:

This Is The String

I am really having a difficult time trying to get this going.
I believe I will need to use a hash and I just have not grasped the concept even after hours of trial and error.

I am bewildered at the fact I could possibly split a string on multiple delimiters where the delimiters could be in any order AND/OR three different types (or none at all) AND maintain the order of the result!

Any possibilities?

Answer 1

Split the string into words, capitalise the words, then join the words while inserting spaces between them.

It can be coded quite succinctly:

my $clean = join ' ', map ucfirst lc, split /[_.-]+/, $string;

If you just want to print out the result, you can use

use feature qw( say );
say join ' ', map ucfirst lc, split /[_.-]+/, $string;

or

print join ' ', map ucfirst lc, split /[_.-]+/, $string;
print "\n";