El operador ‘ eq ‘ en Perl es uno de los operadores de comparación de strings que se utilizan para verificar la igualdad de las dos strings. Se usa para verificar si la string a su izquierda es igual a la string a su derecha.
Sintaxis: String1 eq String2
Devuelve: 1 si el argumento de la izquierda es igual al argumento de la derecha
Ejemplo 1:
#!/usr/local/bin/perl
# Initializing Strings
$a = "Welcome";
$b = "Geeks";
# Comparing the strings using eq operator
$c = $a eq $b;
if($c == 1)
{
print"String1 is equal to String2";
}
else
{
print"String1 is not equal to String2";
}
Producción:
String1 is not equal to String2
Ejemplo 2:
#!/usr/local/bin/perl
# Initializing Strings
$a = "Geeks";
$b = "Geeks";
# Comparing the strings using eq operator
$c = $a eq $b;
if($c == 1)
{
print"String1 is equal to String2";
}
else
{
print"String1 is not equal to String2";
}
Producción:
String1 is equal to String2