Exemplo de operadores de igualdade de strings Perl

Abaixo está uma lista de operadores de ações. Suponha que a variável $ a contenha "abc" e a variável $ b contenha "xyz" então, vamos verificar os seguintes operadores de igualdade de string -

Sr. Não.	Operador e descrição
1	lt Retorna verdadeiro se o argumento esquerdo for menor que o argumento direito. Example - ($ a lt $ b) é verdadeiro.
2	gt Retorna verdadeiro se o argumento esquerdo for stringwise maior que o argumento direito. Example - ($ a gt $ b) é falso.
3	le Retorna verdadeiro se o argumento esquerdo for stringwise menor ou igual ao argumento direito. Example - ($ a le $ b) é verdadeiro.
4	ge Retorna verdadeiro se o argumento esquerdo for stringwise maior ou igual ao argumento direito. Example - ($ a ge $ b) é falso.
5	eq Retorna verdadeiro se o argumento esquerdo for stringwise igual ao argumento direito. Example - ($ a eq $ b) é falso.
6	ne Retorna verdadeiro se o argumento esquerdo for stringwise diferente do argumento direito. Example - ($ a ne $ b) é verdade.
7	cmp Retorna -1, 0 ou 1, dependendo se o argumento esquerdo é stringwise menor, igual ou maior que o argumento direito. Example - ($ a cmp $ b) é -1.

Exemplo

Tente o exemplo a seguir para entender todos os operadores de igualdade de strings disponíveis em Perl. Copie e cole o seguinte programa Perl no arquivo test.pl e execute este programa.

#!/usr/local/bin/perl
 
$a = "abc";
$b = "xyz";

print "Value of \$a = $a and value of \$b = $b\n";

if( $a lt $b ) {
   print "$a lt \$b is true\n";
} else {
   print "\$a lt \$b is not true\n";
}

if( $a gt $b ) {
   print "\$a gt \$b is true\n";
} else {
   print "\$a gt \$b is not true\n";
}

if( $a le $b ) {
   print "\$a le \$b is true\n";
} else {
   print "\$a le \$b is not true\n";
}

if( $a ge $b ) {
   print "\$a ge \$b is true\n";
} else {
   print "\$a ge \$b is not true\n";
}

if( $a ne $b ) {
   print "\$a ne \$b is true\n";
} else {
   print "\$a ne \$b is not true\n";
}

$c = $a cmp $b;
print "\$a cmp \$b returns $c\n";

Quando o código acima é executado, ele produz o seguinte resultado -

Value of $a = abc and value of $b = xyz
abc lt $b is true
$a gt $b is not true
$a le $b is true
$a ge $b is not true
$a ne $b is true
$a cmp $b returns -1

↰ Previous page