Foro - Perl en Español

por **jcarranza** » 2010-04-21 02:26 @143

¡¡Hola!!

Me gustaría programar un script que convirtiera las mayúsculas a minúsculas y viceversa.

HoLa qUe TAl-> hOlA QuE taL

¿Cómo detectar si un carácter está en mayúsculas o en minúsculas?

¡¡Saludos!!

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
my $cadena = 'HoLa qUe TAl';
 
print "$cadena\n";
 
for (split//,$cadena) {         # para cada cadena
    if (/[[:alpha:]]/) {        # si es carácter alfabético (en iso-8859-1)
        $_ ^= chr 0x20;         # invertimos el bit 6, ya que hay una diferencia
                                # de 32 caracteres entre las mayúsculas y las minúsculas
    }
    print;                      # y pintamos el resultado
}
 
print "\n";
 
__END__
HoLa qUe TAl
hOlA QuE taL
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El problema es que esta solución no es muy portable, entre distintas codificaciones.

por **jcarranza** » 2010-04-21 06:50 @326

Me ha gustado, lo he probado y funciona.

En estos momentos soy un usuario Perl muy básico y por ello te pido resolver lo siguiente: quiero meter la conversión en una variable y no usar la variable especial $_. Otra forma es meter el resultado obtenido en una variable. ¿Cómo lo hago?

Tengo esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
system("cls");
 
print "Introduczca una cadena: ";
$cadena=<STDIN>;
 
print "$cadena\n";
 
for (split//,$cadena) {         # para cada cadena
    if (/[[:alpha:]]/) {        # si es carácter alfabético (en iso-8859-1)
        $_ ^= chr 0x20;         # invertimos el bit 6, ya que hay una diferencia
                                # de 32 caracteres entre las mayúsculas y las minúsculas
    }
    print;                      # y pintamos el resultado
}
 
print "\n";
 
print "Pulse INTRO para continuar";
$nada=<STDIN>;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2010-04-21 07:45 @365

Pues nada... se define una variable, y se usa

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $resultado;
 
for (split//,$cadena) {         # para cada cadena
    if (/[[:alpha:]]/) {        # si es carácter alfabético (en iso-8859-1)
        $_ ^= chr 0x20;         # invertimos el bit 6, ya que hay una diferencia
                                # de 32 caracteres entre las mayúsculas y las minúsculas
    }
    $resultado .= $_;           # y guardamos el resultado
}
print "[$resultado]\n";
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **jcarranza** » 2010-04-21 10:38 @485

Muchas gracias. Aquí dejo el código completo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
 
 system("cls");
 
 print "Introduczca una cadena: ";
$cadena=<STDIN>;
 
 
for (split//,$cadena) {         # para cada cadena
    if (/[[:alpha:]]/) {        # si es carácter alfabético (en iso-8859-1)
        $_ ^= chr 0x20;         # invertimos el bit 6, ya que hay una diferencia
                                # de 32 caracteres entre las mayúsculas y las minúsculas
    }
    $resultado .= $_;                     # y pintamos el resultado
}
 
print "La cadena convertida es: $resultado"; 
print "\n";
 
print "Pulse INTRO para continuar";
$nada=<STDIN>;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Convertir mayúsculas a minúsculas y viceversa

Convertir mayúsculas a minúsculas y viceversa

Publicidad

Re: Convertir mayúsculas a minúsculas y viceversa

Re: Convertir mayúsculas a minúsculas y viceversa

Re: Convertir mayúsculas a minúsculas y viceversa

Re: Convertir mayúsculas a minúsculas y viceversa

¿Quién está conectado?