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

Question

Какой самый простой способ использовать первую букву в каждом слове строки?

Answer 1

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

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

Будет напечатано "Что за неправильный ответ?" обратите внимание на неправильно заглавную S

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

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

или Текст :: Автоформат

Answer 2

См. FAQ .

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

Answer 3

Посмотрите на функцию ucfirst .

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

Answer 4

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

Захватив пробел, он вставляется в список и используется для восстановления исходного интервала «ucfirst lc» превращает «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

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

Answer 9

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

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

Что за неправильный ответ?

Answer 10

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