Re: Upper case first letter of each

Useful. How about wrapping in a sub and letting the caller specify the delim?

    sub ucwords {
        join $_[1], map ucfirst lc, split /\Q$_[1]\E/, $_[0], -1;
    }
[download]

Updated to fix the bugs tilly mentions below.

To be called like:

    print ucwords("BATCH_USER_INFO", "_");
[download]

There may be a faster way, and if there is I'm sure someone'll point it out. :)

Comment on Re: Upper case first letter of each _ delimited word Select or Download Code

Replies are listed 'Best First'.
Re (tilly) 2: Upper case first letter of each _ delimited word by tilly (Archbishop) on Dec 05, 2000 at 03:25 UTC
Tsk tsk. `print ucwords("hello_world_", "_"); print ucwords("helloworld", "");` [download] You need to specify the third argument to split and handle meta characters more carefully...	[reply] [d/l]
Re: Re: Upper case first letter of each _ delimited word by japhy (Canon) on Dec 05, 2000 at 02:44 UTC
`sub ucwords { (my $new = $_[0]) =~ s/(?<=$_[1])(\w)/\u$1/sg; return $new; }` [download] `japhy` -- Perl and Regex Hacker	[reply] [d/l]
Re: Re: Re: Upper case first letter of each _ delimited word by chipmunk (Parson) on Dec 05, 2000 at 03:10 UTC
That's a nice solution, but but I think it is missing a couple features: it doesn't catch the first word in the string; it doesn't lowercase the rest of each word; and it doesn't allow variable-width delimiters. Here's a modified version that addresses those issues. `sub ucwords { my($new, $delim) = @_; $new =~ s/($delim\|^)(.*?)(?=$delim\|$)/$1\u\L$2/sg; $new; }` [download] To match an entire word, from one delimiter to the next, I used a non-greedy match and a positive lookahead.	[reply] [d/l]
Re: Re: Re: Upper case first letter of each _ delimited word by btrott (Parson) on Dec 05, 2000 at 03:01 UTC
That's slick but it doesn't quite work: `print ucwords("BATCH_USER_INFO", "_"), "\n"; print ucwords("batch_user_info", "_"), "\n";` [download] produces `BATCH_USER_INFO batch_User_Info` [download] In the first case you don't ever lower-case the string; in the second case you don't look for "word" at the beginning of the string, before the delim.	[reply] [d/l] [select]