Comparación de cuerdas de Perl

“Existen muchas opciones en Perl para comparar los valores de las cadenas. Una forma es usar el "CMP"Operador, y otra forma es usar operadores de comparación, que son "Eq", "ne", "LT."Y" GT." El "=="El operador se usa para la comparación de números solo en Perl. Se han mostrado diferentes formas de comparar dos cuerdas en Perl en este tutorial."

Compare cadenas utilizando el operador "CMP"

El operador "CMP" se usa para comparar dos cadenas y averiguar si el primero es menor o igual, o mayor que la segunda cadena. Cree un archivo Perl con el siguiente código para conocer los usos del operador "CMP" en Perl. Se tomarán dos valores de cadena del usuario para la comparación. La función chomp () se ha utilizado en el código para eliminar la nueva línea de ambos valores de cadena tomados del usuario. A continuación, la salida del operador "CMP" se almacenará en una variable. El valor de retorno del operador "CMP" será 0 si ambas cadenas son iguales. El valor de retorno del operador "CMP" será 1 si la primera cadena es mayor que la segunda cadena. El valor de retorno del operador "CMP" será -1 si la primera cadena es menor que la segunda cadena.

# Tomar dos valores de cadena
Imprima "Ingrese la primera cadena:";
$ Str1 = ;
imprimir "Ingrese la segunda cadena:";
$ Str2 = ;
# Eliminar la nueva línea de cada variable de cadena
Chomp ($ str1, $ str2);
# Compare las variables de cadena usando el operador 'CMP'
$ output = $ str1 cmp $ str2;
# Verifique la salida del operador 'CMP'
if ($ output == 0)

imprimir "ambas cuerdas son iguales.\norte";

Elsif ($ output == 1)

imprimir "$ str1 es mayor que $ str2 \ n";

demás

imprimir "$ str1 es menos de $ str2 \ n";

Producción

Según la siguiente salida, el código se ha ejecutado tres veces. El primer valor de entrada fue "Hola,"Y el segundo valor de entrada fue"Hola"En la primera ejecución del código. El personaje "H"Es mayor que el personaje"H"Basado en el valor ASCII de estos caracteres. Entonces, "hola es más grande que hola"Se ha imprimido en la primera salida. Por la misma razón, "Hola es menos que hola"Ha estado en la segunda salida. Ambos "Hola" y "Hola" son iguales que se han tomado en la tercera ejecución del código. Entonces, "Ambas cuerdas son iguales."Se ha imprimido en la tercera salida.

Compare cadenas utilizando el operador "EQ"

El "ecualizaciónEl operador se usa en Perl para averiguar si dos valores de cadena son iguales o no. Cree un archivo Perl con el siguiente código para conocer el uso del "ecualización"Operador para comparar valores de cadena. Se han almacenado dos valores de cadena en dos variables. La primera palabra de ambos valores de cadena es igual, y eso es "Bien,"Pero la segunda parte de los valores de cadena no es igual. Entonces el "ecualización"El operador devolverá un FALSO valor.

# Declarar dos variables de cadena
$ Str1 = "buenos días";
$ Str2 = "adiós";
# Compare las cadenas usando el operador 'EQ'
if ($ str1 eq $ str2)

imprimir "ambas cuerdas son iguales.\norte";

demás

imprimir "las cuerdas no son iguales.\norte";

Producción

La siguiente salida aparecerá después de ejecutar el código anterior.

Compare cadenas usando el operador "NE"

El "nordesteEl operador se usa en Perl para averiguar si dos valores de cadena no son iguales o no. Cree un archivo Perl con el siguiente código para conocer el uso del "nordeste"Operador para comparar valores de cadena. Se han almacenado dos valores de cadena en dos variables. Los primeros 4 caracteres de ambos valores de cadena son iguales, y eso es "Bien,"Pero la segunda parte de los valores de cadena no es igual. Aquí el Función subStr () se ha utilizado para cortar los primeros 4 caracteres de ambos valores de cadena, y a continuación, los valores se han comparado con el operador "NE". Entonces el "nordeste"El operador devolverá un FALSO valor.

# Declarar dos variables de cadena
$ Str1 = "buenos días";
$ Str2 = "adiós";
# Compare la parte particular de las cadenas usando el operador 'NE'
if (substr ($ str1,0,4) ne substr ($ str2,0,4))

imprimir "Los primeros 4 caracteres de ambas cuerdas no son iguales.\norte";

demás

imprimir "Los primeros 4 caracteres de ambas cuerdas son iguales.\norte";

Producción

La siguiente salida aparecerá después de ejecutar el código anterior.

Compare cadenas usando el operador "LT"

El "teniente"El operador se usa en Perl para averiguar si la primera cadena es menor que la segunda cadena o no. Cree un archivo Perl con el siguiente código para conocer el uso del "teniente"Operador para comparar valores de cadena. Aquí el subStr () La función se ha utilizado para cortar los caracteres de la posición 5 a la parte restante de ambas cuerdas. A continuación, los valores se han comparado con el "teniente"Operador. Aquí, el personaje "METRO"Es mayor que el personaje"B"Basado en el valor ASCII. Entonces el "teniente"El operador devolverá un FALSO valor.

# Declarar dos variables de cadena
$ Str1 = "buenos días";
$ Str2 = "adiós";
# Compare la parte particular de las cadenas utilizando el operador 'LT'
if (substr ($ str1,5) LT substr ($ str2,5))

imprimir "$ str1 es menos de $ str2 \ n";

demás

imprimir "$ str1 es mayor que $ str2 \ n";

Producción

La siguiente salida aparecerá después de ejecutar el código anterior.

Compare cadenas usando el operador "GT"

El "GTEl operador se usa en Perl para averiguar si la primera cadena es mayor que la segunda cadena o no. Cree un archivo Perl con el siguiente código para conocer el uso del "GT"Operador para comparar valores de cadena. Se tomarán dos valores de cadena del usuario. El Función Chomp () se ha utilizado aquí para eliminar la nueva línea de los valores de entrada antes de comparar los valores utilizando el "GT"Operador.

# Tomar dos valores de cadena
Imprima "Ingrese la primera cadena:";
$ Str1 =;
imprimir "Ingrese la segunda cadena:";
$ Str2 =;
# Compare las cadenas usando el operador 'GT'
if (chomp ($ str1) gt chomp ($ str2))

imprimir "$ str1 es mayor que $ str2 \ n";

demás

imprimir "$ str1 es menos de $ str2 \ n";

Producción

La siguiente salida aparecerá después de ejecutar el código anterior para los valores de entrada, "Hola mundo" y "Hola mundo."

Conclusión

Se han mostrado diferentes formas de comparar valores de cadena en Perl en este tutorial utilizando múltiples operadores de comparación. Los usuarios de Perl pueden usar cualquiera de los operadores de comparación para comparar los valores de cadena en Perl.