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

Question

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

score 52 · Accepted Answer

正如@brian 在评论中提到的，@piCookie 当前接受的答案是错误的！

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

这将打印“什么是错误的答案？” 注意大写错误的 S

正如常见问题解答所说，您最好使用

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

score 18 · Accepted Answer

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

score 13 · Accepted Answer

13

看一下ucfirst函数。

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

于 2008-09-16T21:17:52.710 回答

score 11 · Accepted Answer

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

通过捕获空白，将其插入列表中并用于重建原始间距。“ucfirst lc”将“teXT”大写为“Text”。

score 6 · Accepted Answer

6

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

应该可以正常工作

于 2008-09-16T22:14:12.123 回答

score 2 · Accepted Answer

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

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

score 1 · Accepted Answer

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

score 1 · Accepted Answer

1

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

于 2010-02-25T14:29:00.213 回答

score 1 · Accepted Answer

试试这个：

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

输出将是：

What's The Wrong Answer?

score -1 · Accepted Answer

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

10 回答 10