I use the following regex to make every word in a string to make all words have first character uppercase.
$str="JB morGan & CO";
$str=uc($str);
$str=~ s/(\w+)/\u\L$1/g;
in this example my result would be Jb Morgan & Co which is ok in most cases
I would like to be able to toggle the output depending on input. e.g. Let's say I have a field that a user will enter only the name of a company. I may want PERL to uppercase only words in a string that are longer than 2 characters using a routine.
$company=&ucwords("Jb morGan & CO",2);
sub ucwords {
my $str=$_[0];
my $lim=$_[1];
my $result;
$str= some regex to uppercase words longer than $lim
return $result;
}
in this example, with the proper code, my result would be JB Morgan & CO
Start Free Trial
