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.