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