¡Ya estamos en Twitter!

Perl en Español

  1. Home
  2. Tutoriales
  3. Foro
  4. Artículos
  5. Donativos
  6. Publicidad

Funciones de Cadena

por Uriel Lizama

Introducción

A continuación vamos a ver una a una todas las funciones de cadena. Estas funciones nos permiten manejar nuestros strings o cadenas.

Todas las funciones de cadena son:


chomp()

Sintáxis:

chomp(CADENA);

Esta función sirve para eliminar la terminación de nuestra cadena. Por ejemplo:

my $string = "Me encanta perl\n";

chomp($string); #Eliminamos la nueva línea \n



chop()

Sintáxis:

chop(CADENA);

Esta función sirve para eliminar el último carácter de la cadena y regresa el carácter eliminado. Por ejemplo:

my $string = "Me encanta perl";

my $char = chop($string);

print "$char"; #Imprime l




chr()

Sintáxis:

chr(NÚMERO);

Regresa el cáracter representado en la tabla ASCII del número que envías. Por ejemplo:

my $num = 65;

print chr($num); #Imprime la letra A



crypt()

Sintáxis:

crypt(CADENA1,CADENA2);

Encripta la CADENA1 de acuerdo a lo que pones en la CADENA2. El único problema es que no hay un decriptador y esta función no es válida en sistemas operativos Windows. Por ejemplo:

my $pwd = crypt("uriel","aa");

print "$pwd"; #Imprime uriel Encriptado



index()

Sintáxis:

index(CADENA,SUBCADENA,POSICIÓN);

Regresa la posición de la primera ocurrencia de SUBCADENA dentro de la CADENA iniciando en POSICIÓN. Si no se da ninguna POSICIÓN la búsqueda inicia al principio de la CADENA. Por ejemplo:

my $string = "Uriel es el creador de perl";

my $pos = index($string,"perl",10);

print "$pos"; #Imprime 23



join()

Sintáxis:

join(CADENA,ARREGLO);

Regresa una cadena de la unión de todos los elementos del ARREGLO por la CADENA. Por ejemplo:

my @arreglo = ("A","B","C");

my $string = join(">>",@arreglo);

print "$string"; #Imprime A>>B>>C



lc()

Sintáxis:

lc(CADENA);

Regresa la CADENA convertida en minúsculas. Por ejemplo:

my $string = "URIEL";

print lc($string); #Imprime uriel



lcfirst()

Sintáxis:

lcfirst(CADENA);

Regresa la CADENA con la primera letra convertida a minúscula. Por ejemplo:

my $string = "URIEL";

print lcfirst($string); #Imprime uRIEL



length()

Sintáxis:

length(CADENA);

Regresa la longitud de la CADENA. Por ejemplo:

my $string = "Uriel";

print length($string); #Imprime 5



rindex()

Sintáxis:

rindex(CADENA,SUBCADENA,POSICIÓN);

Regresa la posición de la última ocurrencia de SUBCADENA dentro de la CADENA iniciando en POSICIÓN. Si no se da ninguna POSICIÓN la búsqueda inicia al final de la CADENA. Por ejemplo:

my $string = "Uriel es el creador de perl";

my $pos = index($string,"perl");

print "$pos"; #Imprime 23



split()

Sintáxis:

split(PATRÓN,CADENA,LÍMITE);

Divide una CADENA de acuerdo al PATRÓN. En un entorno de arreglo regresá una arreglo de todos los elementos divididos, en un entorno escarla regresa el número de elementos regresados. Por ejemplo:

my $string = "A_B_C";

my @arreglo = split("_",$string);
#REGRESA @arreglo = ("A","B","C")

my $cadena = split("_",$string);
#REGRESA 3



substr()

Sintáxis:

substr(CADENA,DESPLAZAMIENTO,LONGITUD);

Regresa una porción de la cadena entre DESPLAZAMIENTO y LONGITUD. Si no se específica una LONGITUD se va al final de la CADENA. Se puede poner un DESPLAZAMIENTO negativo para iniciar a la derecha de la CADENA. Por ejemplo:

my $string = "Me encanta perl";

my $str = substr($string,3,7);

print "$str"; #Imprime encanta



uc()

Sintáxis:

uc(CADENA);

Regresa la CADENA convertida en mayúsculas. Por ejemplo:

my $string = "uriel";

print uc($string); #Imprime URIEL



ucfirst()

Sintáxis:

ucfirst(CADENA);

Regresa la CADENA con la primera letra convertida a mayúscula. Por ejemplo:

my $string = "uriel";

print ucfirst($string); #Imprime Uriel

¿Quiéres más tutoriales como este? Escribir tutoriales toma una gran cantidad de tiempo y esfuerzo. Si este tutorial te ayudó a aprender o a solucionar algo, por favor considera dejar alguna donación en apoyo a Perl en Español.

Cliquea en el botón de abajo para dejar tu donación por medio de PayPal.

Comparte:
Categorías de Tutoriales:
En Nuestros Foros:
Socializa:
Síguenos por Twitter

Suscríbete GRATUITAMENTE al Boletín de Perl en Español

Perl en Español es mantenido con Movable Type
Todo el contenido de Perl en Español está bajo una licencia CC:
Creative Commons License