Comparação de String Perl

“Muitas opções existem em Perl para comparar valores de string. Uma maneira é usar o “cmpOperador, e outra maneira é usar operadores de comparação, que são "Eq", "NE", "LT."E" gt.” O "==”O operador é usado para comparação de números apenas em Perl. Diferentes maneiras de comparar duas cordas em Perl foram mostradas neste tutorial.”

Compare strings usando o operador "CMP"

O operador "CMP" é usado para comparar duas cordas e descobrir se o primeiro é menor ou igual a, ou maior que a segunda sequência. Crie um arquivo Perl com o seguinte código para saber os usos do operador "CMP" em Perl. Dois valores de string serão retirados do usuário para a comparação. A função chomp () foi usada no código para remover a nova linha dos dois valores de string retirados do usuário. Em seguida, a saída do operador "CMP" será armazenada em uma variável. O valor de retorno do operador “cmp” será 0 se ambas as seqüências forem iguais. O valor de retorno do operador "CMP" será 1 se a primeira string for maior que a segunda sequência. O valor de retorno do operador "CMP" será -1 se a primeira string for menor que a segunda string.

# Tome dois valores de string
Imprima "Digite a primeira string:";
$ Str1 = ;
imprima "Digite a segunda string:";
$ Str2 = ;
# Remova a nova linha de cada variável de string
chomp ($ str1, $ str2);
# Compare as variáveis ​​de string usando o operador 'cmp'
$ output = $ str1 cmp $ str2;
# Verifique a saída do operador 'cmp'
if ($ output == 0)

impressão "Ambas as cordas são iguais.\ n ";

elsif ($ output == 1)

impressão "$ str1 é maior que $ str2 \ n";

outro

impressão "$ str1 é menor que $ str2 \ n";

Saída

De acordo com a saída a seguir, o código foi executado três vezes. O primeiro valor de entrada foi “olá,”E o segundo valor de entrada foi“Olá”Na primeira execução do código. O personagem "h"É maior que o personagem"H”Com base no valor ASCII desses caracteres. Então, "Olá, é maior que olá”Foi impresso na primeira saída. Pela mesma razão, "Olá, é menos do que olá”Está na segunda saída. Ambos "Olá" e "Olá" são iguais que foram tomados na terceira execução do código. Então, "Ambas as cordas são iguais.”Foi impresso na terceira saída.

Compare strings usando o operador "EQ"

O "Eq”O operador é usado em Perl para descobrir se dois valores de string são iguais ou não. Crie um arquivo Perl com o seguinte código para saber o uso do “Eq”Operador para comparar valores de string. Dois valores de string foram armazenados em duas variáveis. A primeira palavra de ambos os valores de string é igual, e isso é “Bom,”Mas a segunda parte dos valores da string não é igual. Então o "Eq”O operador retornará um falso valor.

# Declare duas variáveis ​​de string
$ Str1 = "bom dia";
$ Str2 = "adeus";
# Compare as cordas usando o operador 'EQ'
if ($ str1 eq $ str2)

impressão "Ambas as cordas são iguais.\ n ";

outro

imprimir "As cordas não são iguais.\ n ";

Saída

A saída a seguir aparecerá após a execução do código acima.

Compare strings usando o operador “NE”

O "ne”O operador é usado em Perl para descobrir se dois valores de string não são iguais ou não. Crie um arquivo Perl com o seguinte código para saber o uso do “ne”Operador para comparar valores de string. Dois valores de string foram armazenados em duas variáveis. Os 4 primeiros caracteres de ambos os valores de string são iguais, e isso é “Bom,”Mas a segunda parte dos valores da string não é igual. Aqui o função substr () foi usado para cortar os 4 primeiros caracteres de ambos os valores de string e, em seguida, os valores foram comparados com o operador “NE”. Então o "ne”O operador retornará um falso valor.

# Declare duas variáveis ​​de string
$ Str1 = "bom dia";
$ Str2 = "adeus";
# Compare a parte específica das cordas usando o operador 'NE'
if (substr ($ str1,0,4) ne subtr ($ str2,0,4))

imprimir "Os 4 primeiros caracteres de ambas as strings não são iguais.\ n ";

outro

imprimir "Os 4 primeiros caracteres de ambas as strings são iguais.\ n ";

Saída

A saída a seguir aparecerá após a execução do código acima.

Compare strings usando o operador "LT"

O "lt”O operador é usado em Perl para descobrir se a primeira sequência é menor que a segunda sequência ou não. Crie um arquivo Perl com o seguinte código para saber o uso do “lt”Operador para comparar valores de string. Aqui o substr () A função foi usada para cortar os caracteres da posição 5 para a parte restante de ambas as strings. Em seguida, os valores foram comparados com o “ltOperador. Aqui, o personagem “M"É maior que o personagem"B”Com base no valor ASCII. Então o "lt”O operador retornará um falso valor.

# Declare duas variáveis ​​de string
$ Str1 = "bom dia";
$ Str2 = "adeus";
# Compare a parte particular das cordas usando o operador 'LT'
if (substr ($ str1,5) lt substr ($ str2,5))

impressão "$ str1 é menor que $ str2 \ n";

outro

impressão "$ str1 é maior que $ str2 \ n";

Saída

A saída a seguir aparecerá após a execução do código acima.

Compare strings usando o operador "GT"

O "gt”O operador é usado em Perl para descobrir se a primeira string é maior que a segunda sequência ou não. Crie um arquivo Perl com o seguinte código para saber o uso do “gt”Operador para comparar valores de string. Dois valores de string serão retirados do usuário. O função chomp () foi usado aqui para remover a nova linha dos valores de entrada antes de comparar os valores usando o “gtOperador.

# Tome dois valores de string
Imprima "Digite a primeira string:";
$ Str1 =;
imprima "Digite a segunda string:";
$ Str2 =;
# Compare as cordas usando o operador 'GT'
if (chomp ($ str1) gt chomp ($ str2))

impressão "$ str1 é maior que $ str2 \ n";

outro

impressão "$ str1 é menor que $ str2 \ n";

Saída

A saída a seguir aparecerá após a execução do código acima para os valores de entrada, “Hello World” e “Hello World.”

Conclusão

Diferentes maneiras de comparar valores de string em Perl foram mostradas neste tutorial usando múltiplos operadores de comparação. Os usuários do PERL podem usar qualquer um dos operadores de comparação para comparar os valores da string no Perl.