PERL
	Como pasar de MAYÚSCULAS A minúsculas y viceversa y cómo sacar los acentos ?

by alfi

Bien, esto es fácil, en esta nota, no te vamos a llenar de palabras como en otras.

Supongamos que tienes variables que vienen en mayusculas y deseas pasarlas a minusculas, como por ejemplo:

$idea="TODO ESTA EN EL CARIBE";

Para pasarla a minusculas tenemos que hacer

 $idea =~ tr/A-Z/a-z/;

Si en cambio lo que deseamos es hacer la inversa

$idea="todo esta en el caribe";

entonces:

 $idea =~ tr/a-z/A-Z/;

fácil no ?

Antes de irnos de ésta nota, le agregamos unas cositas útiles

Por ejemplo, como sacar los acentos y las ñ a una variable?

$idea =~ s/\Ñ/n/g;  ## transforma la Ñ en n
$idea =~ s/\ñ/n/g;   ## transforma la ñ en n
$idea =~ s/\á/a/g;   ## saca el acento a la a
$idea =~ s/\é/e/g;   ## saca el acento a la e
$idea =~ s/\í/i/g;     ## saca el acento a la i
$idea =~ s/\ó/o/g;   ## saca el acento a la o
$idea =~ s/\ú/u/g;   ## saca el acento a la u

bye