¿Cómo puedo poner en mayúscula la primera letra de cada palabra en una cadena en Perl?

Question

¿Cuál es la forma más sencilla de poner en mayúscula la primera letra de cada palabra de una cadena?

Answer 1

Ver las preguntas frecuentes.

No creo que ucfirst() satisfaga la pregunta del OP de poner en mayúscula la primera letra de cada palabra en una cadena sin dividir la cadena y unirla más tarde.

Answer 2

Como @brian menciona en los comentarios, ¡la respuesta actualmente aceptada por @piCookie es incorrecta!

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

Esto imprimirá "¿Cuál es la respuesta incorrecta?" Observe la S oxida capitalizada S

como el Preguntas más frecuentes dice que probablemente sea mejor que uses

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

o Texto::Autoformato

Answer 3

Échale un vistazo al ucprimero función.

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

Answer 4

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

Al capturar el espacio en blanco, se inserta en la lista y se usa para reconstruir el espacio original."ucfirst lc" escribe "texto" en mayúscula en "Texto".

Answer 5

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

debería funcionar bien

Answer 6

Esto pone en mayúscula sólo la primera palabra de cada línea:

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

Answer 7

Tenga en cuenta que la solución de preguntas frecuentes no funciona si tiene palabras escritas en mayúsculas y desea que estén (solo) en mayúscula.Puede crear una expresión regular más complicada o simplemente hacer un lc en la cadena antes de aplicar la solución de preguntas frecuentes.

Answer 8

Puedes usar 'Titulo del caso', es un código genial escrito en Perl.

Answer 9

El ucprimero La función en un mapa ciertamente hace esto, pero solo de una manera muy rudimentaria.Si quieres algo un poco más sofisticado, echa un vistazo a Guión TitleCase de John Gruber.

Answer 10

prueba esto :

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

¿Cuál es la respuesta incorrecta?