如何在 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;

应该工作得很好

Answer 6

这仅将每行的第一个单词大写：

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

Answer 7

您可以使用“标题案例”，它是用 Perl 编写的一段非常酷的代码。

Answer 8

尝试这个 ：

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

输出将是：

What's The Wrong Answer?

Answer 9

请注意，如果您的单词全部大写并且您希望它们（仅）大写，则 FAQ 解决方案不起作用。 您可以制作更复杂的正则表达式，也可以在应用 FAQ 解决方案之前对字符串执行 lc。

Answer 10

地图中的ucfirst函数当然可以做到这一点，但只是以一种非常基本的方式。 如果您想要更复杂的东西，请查看John Gruber 的 TitleCase 脚本。