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

Question

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

Answer 1

请参阅the faq。

我不相信ucfirst（）满足OP的问题，以便将字符串中每个单词的第一个字母大写，而不用拆分字符串并稍后加入。

Answer 2

看看ucfirst函数。

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

Answer 3

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

应该只是罚款

Answer 4

请注意，如果您有在全部大写的单词，你想他们是常见问题的解决方案不工作（只），而不是资本。您可以制作更复杂的正则表达式，或者在应用常见问题解答之前在字符串上执行lc。

Answer 5

地图中的ucfirst函数肯定会这样做，但只能以非常基本的方式。如果你想要一些更复杂的东西，看看John Gruber's TitleCase script。

Answer 6

由于@brian在评论中提到@piCookie目前接受的答案是错误的！

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

这将打印出“错误的答案是什么？注意错误地大写小号

由于FAQ说你可能会更好过使用

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

或Text::Autoformat

Answer 7

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

通过捕获的空白，它被插在列表中，并用于重建原始间距。 “ucfirst lc”将“teXT”改为“文本”。

Answer 8

您可以使用'Title Case'，它是一个用Perl编写的非常酷的代码。

Answer 9

本大写只有每一行的第一个字：

perl -ne "print (ucfirst($1)$2) if s/^(\w)(.*)/\1\2/" file 

Answer 10

试试这个：

echo "what's the wrong answer?" |perl -pe 's/^/ /; s/\s(\w+)/ \u$1/g; s/^ //' 

什么是错误的答案？