El operador cmp en Perl es un operador de comparación de igualdad de strings que se usa para comparar si las dos strings colocadas a la izquierda y a la derecha de este operador son iguales o menores que la otra.
Sintaxis: string1 cmp string2
Devuelve: -1 si string1 es menor, 0 si es igual y 1 si es mayor que string2.
Ejemplo 1: cuando String1 es menor que String2
#!/usr/local/bin/perl
# Initializing strings
$a = "Geeks";
$b = "Welcome";
# Comparing strings
$c = $a cmp $b;
# Printing the comparison result
print("Comparison of \$a and \$b returns $c");
Producción:
Comparison of $a and $b returns -1
Ejemplo 2: Cuando String1 es igual a String2
#!/usr/local/bin/perl
# Initializing strings
$a = "Welcome";
$b = "Welcome";
# Comparing strings
$c = $a cmp $b;
# Printing the comparison result
print("Comparison of \$a and \$b returns $c");
Producción:
Comparison of $a and $b returns 0
Ejemplo 3: cuando String1 es mayor que String2
#!/usr/local/bin/perl
# Initializing strings
$a = "Welcome";
$b = "Geeks";
# Comparing strings
$c = $a cmp $b;
# Printing the comparison result
print("Comparison of \$a and \$b returns $c");
Producción:
Comparison of $a and $b returns 1