Perl tiene dos funciones que le ayudarán 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 " uc " capitaliza cada personaje . Esta función es útil cuando se desea comparar dos o más cadenas sin tener que preocuparse sobre el 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 disponible para hacerlo. Sin embargo , puede utilizar el operador " s " para encontrar los primeros caracteres de cada palabra en una cadena y luego capitalizarlos . Instrucciones
1
Abra el archivo de programa Perl. Inserte el cursor donde desea capitalizar una cadena. Escriba el siguiente código:
$ cadena = " . El contenido de mi cadena" ;
$ cadena = ucfirst ( $ cadena) ;
print $ cadena ;
< p> Esto crea una variable de cadena que se compone de las letras minúsculas del todo . A continuación, se llama a la función ucfirst a mayúsculas el primer carácter de la cadena. El resultado de la sentencia print es "el contenido de mi cuerda. "
2
Escriba el siguiente código:
$ cadena = "contenido de mi cuerda. " ;
$ cadena = uc ( $ cadena) ;
print $ cadena ;
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 sentencia print es " CONTENIDO DE MI CADENA . "
3
Escriba el siguiente código:
$ cadena = "contenido de mi cuerda. " ;
$ string = ~ s /( [ \\ w '] +) /\\ u \\ L $ 1 /g;
print $ cadena ;
poco complicado de código utiliza el " s operador ///" , que reemplaza ocurrencias suministrados por la primera expresión con el segundo . 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 de ignorar apóstrofes . Una vez que encuentre esos caracteres especificados , se les saca provecho . El resultado de la sentencia print es " contenido de mi cuerda . "
4
Guardar el archivo de programa Perl y ejecutarlo en su versión de Perl.
