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

XHTML: You can use these tags: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

 

Recently

  • Ruby on Rails 3
  • reflexiones de blogers
  • La ciudad de las descargas en Rusia
  • telefónica compra tuenti.es
  • wiki.developers.facebook.com hacked
  • gnome terminal : copiar y pegar = truncado
  • He visto cosas que vosotros no creeríais
  • perl forking
  • OpenSolaris colgando de un hilo
  • iframe sospechoso
  •