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
