如何将Perl中字符串中每个单词的首字母大写？

Question

将字符串的每个单词中的第一个字母大写的最简单方法是什么？

Answer 1

正如@brian在评论中提到的那样@piCookie目前接受的答案是错误的!

$_="what's the wrong answer?";
s/\b(\w)/\U$1/g
print; 

这将打印出"错误的答案是什么？" 注意错误的大写S.

正如常见问题解答所说,你可能会更好地使用它

s/([\w']+)/\u\L$1/g

或 Text :: Autoformat

Answer 2

见常见问题.

我不相信ucfirst()满足OP的问题来大写字符串中每个单词的第一个字母而不分割字符串并稍后加入它.

Answer 3

看看ucfirst函数.

$line = join " ", map {ucfirst} split " ", $line;

Answer 4

$capitalized = join '', map { ucfirst lc $_ } split /(\s+)/, $line;

通过捕获空白,它将插入列表中并用于重建原始间距."ucfirst lc"将"teXT"大写为"Text".

Answer 5

$string =~ s/(\w+)/\u$1/g;

应该工作得很好