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

  • Infección en apps de Android
  • virt-manager: ERROR:root:unsupported locale setting
  • sopastrike.com – Vamos a la huelga
  • No me gusta wordpress
  • [Asterisk] Tareas de mantenimiento
  • screengrab queda muerto
  • rails + omniauth + omniauth-twitter
  • Ruby on Rails + Papercliip: cannot load such file — cocaine (LoadError)
  • `autodetect’: Could not find a JavaScript runtime. See https://github.com/sstephenson/execjs for a list of available runtimes. (ExecJS::RuntimeUnavailable)
  • Drivers nvidia en Debian Wheezy y Xorg con dos monitores ( dual head )
  •