Как в Perl сделать заглавной первую букву каждого слова в строке?

См. часто задаваемые вопросы.

Я не верю, что ucfirst() удовлетворяет вопрос ОП о том, чтобы сделать первую букву каждого слова в строке заглавной, не разделяя строку и не присоединяя ее позже.

Как упоминает @brian в комментариях, принятый в настоящее время ответ @piCookie неверен!

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

Это напечатает "Какой неправильный ответ?" обратите внимание на неправильно написанную заглавную букву S

Как сказано в FAQ, вам, вероятно, лучше использовать

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

или Text::Autoformat

Взгляните на функцию ucfirst.

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

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

При захвате пробела он вставляется в список и используется для восстановления исходного интервала. «ucfirst lc» заменяет «текст» на «текст».

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

должно работать нормально

При этом заглавными буквами пишется только первое слово каждой строки:

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

Обратите внимание, что решение часто задаваемых вопросов не работает, если у вас есть слова, написанные заглавными буквами, и вы хотите, чтобы вместо этого они были (только) заглавными. Вы можете либо сделать более сложное регулярное выражение, либо просто сделать lc в строке, прежде чем применять решение часто задаваемых вопросов.

Вы можете использовать 'Title Case', это очень классный фрагмент кода, написанный на Perl.

попробуй это :

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

Вывод будет:

What's The Wrong Answer?

Функция ucfirst на карте, безусловно, делает это, но только очень примитивным образом. Если вы хотите что-то более сложное, взгляните на скрипт TitleCase Джона Грубера.