如何在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/^ //' 

什麼是錯誤的答案？