ucfirst

[gm199]

I know Perl have the ucfirst function but I can't make it work properly when the string have more than one word.

I'm using the following routine I found in this forum that is giving me another problem: is the data contains latin caracters, the very next will be upper case.
ie. polêmica becames PolêMica
How to solve this using the routine OR ucfirst?


sub first($) {
$str = $_[0];
$str =~ s/(\b)(\w)/\U\2/g;
return $str;
}

 

[4bduc7i0n]

its not clever, its not necessarily good, but it works.

$str = "just another perl hacker";

print ustr($str);

sub ustr{
   @str = split(' ', shift);
   foreach(@str){$u .= ucfirst($_)." ";}
   chop $u; return $u;
}

 

[gm199]

Worked fine.
I just added

$str = lc($str);

before call the sub to make sure Ill get only the first letter in UPPER CASE

Many thanks for your help

 

[4bduc7i0n]

but this is nicer.

$str =~ s/((^\w)|(\s\w))/\U$1/xg;