¿Cómo poner en mayúsculas una cadena en Perl

Perl tiene dos funciones para ayudar a sacar provecho caracteres de una cadena. La función "ucfirst" capitaliza sólo el primer carácter de una cadena, mientras que la función de "UC" capitaliza cada personaje. Esta función es útil cuando se desea comparar dos o más cadenas sin preocuparse por caso. Convertir una cadena en caso de título es mucho más difícil, ya que Perl no tiene una función de cadena fácilmente disponible para hacerlo. Sin embargo, puede utilizar la "s" operador para encontrar los primeros caracteres de cada palabra de una cadena y luego sacar provecho de ellos.

Instrucciones

1 Abra el archivo de programa Perl. Insertar el cursor donde desea capitalizar una cadena. Escriba el siguiente código:

$ Cadena = "contenido de mi cadena.";

$ Cadena = ucfirst ($ cadena);

print $ string;

Esto crea una variable de cadena que consiste en letras minúsculas en su totalidad. A continuación, llama a la función ucfirst para capitalizar el primer carácter de la cadena. El resultado de la instrucción de impresión es "el contenido de mi cadena."

2 Escriba el siguiente código:

$ Cadena = "contenido de mi cadena.";

$ Cadena = uc ($ cadena);

print $ string;

Esto restablece la variable de cadena. A continuación, la cadena llama a la función uc para capitalizar cada carácter de la cadena. El resultado de la instrucción de impresión es "CONTENIDO DE MI cadena."

3 Escriba el siguiente código:

$ Cadena = "contenido de mi cadena.";

$ Cadena = ~ s / ([\ w '] +) / \ u \ L $ 1 / g;

print $ string;

Este poco complicado de código utiliza el operador "s ///", que reemplaza ocurrencias suministrados por la primera expresión con la segunda. En este caso, se ejecuta a través de la cadena para encontrar el primer carácter de cada palabra. Normalmente, el carácter después del apóstrofe se consideraría una nueva palabra, pero la primera expresión indica al operador hacer caso omiso de apóstrofes. Una vez que encuentre esos caracteres especificados, se les saca provecho. El resultado de la instrucción de impresión es "contenido de mi cadena."

4 Guarde el archivo de programa Perl y ejecutarlo en su versión de Perl.