Capitalize texto con perl y tildes
Thursday, April 20th, 2006 @ 3:22 pm | Notas rápidas
… Es lo que tiene usar tildes, que normalmente no se tiene encuenta de primeras a los lenguajes que no sean sajones.
Por ejemplo si queremos hacer poner la primera letra en mayúsculas de ‘PRUEBA ESTA OPCIÓN’: lo haríamos pasando a minusculas con lc() todo y luego la primera a mayusculas con ucfirst();
#!/usr/bin/perl $texto='PRUEBA ESTA OPCIÓN'; print ucfirst(lc($texto));
El resultado es: Prueba esta opciÓn
eso es un asco… asi que lo que hacer es usar los locale así:
#!/usr/bin/perl use locale; $texto='PRUEBA ESTA OPCIÓN'; print ucfirst(lc($texto));
y el resultado ahora sí es: Prueba esta opción


Leave a Reply