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