OPERADORES EN PERL

Operadores aritméticos

Signo	Acción
+	Sumas
-	Restas
*	Multiplicación
**	Exponenciación
/	División
%	Resto
.	Concatenación de cadenas de texto
x	Repetición de caracteres

Ejemplo:

#Operadores aritmeticos

my $numero1 = 4;
my $numero2 = 2;

print "SUMA ... ";
print $numero1 + $numero2;
print "\n";

print "RESTA ... ";
print $numero1 - $numero2;
print "\n";

print "MULTIPLICACION ... ";
print $numero1 * $numero2;
print "\n";

print "EXPONENCIACION ... ";
print $numero1 ** $numero2;
print "\n";

print "DIVISION ... ";
print $numero1 / $numero2;
print "\n";

print "RESTO ... ";
print $numero1 % $numero2;
print "\n";

print "CONCATENACION ... ";
print $numero1 . $numero2;
print "\n";

print "REPETICION DE CARACTER ... ";
print $numero1 x $numero2;
print "\n";

Operadores relacionales

Operador relacional	Numérico	Cadena de caracteres
Igualdad	==	eq
Diferencia	!=	ne
Inferior	<	lt
Superior	>	gt
Inferior o igual	<=	le
Superior o igual	>=	ge

Ejemplo:

#Operadores relacionales

my $numero1 = 4;
my $numero2 = 2;

print "IGUALDAD == ... ";

if ($numero1 == $numero2)
{
print "Los numeros $numero1 y $numero2 son iguales \n";
}
else
{
print "Los numeros $numero1 y $numero2 no son iguales \n";
}

print "Otra forma de hacerlo mediante eq ";
if ($numero1 eq $numero2)
{
print "Los numeros $numero1 y $numero2 son iguales \n";
}
else
{
print "Los numeros $numero1 y $numero2 no son iguales \n";
}

Otro operadores muy útiles y que sirven para encontrar patrones dentro de una cadena de texto son los siguientes ...

Signo	Acción
=~	Si el patrón es encontrado
!~	Si el patrón no es encontrado

Ejemplo:

$texto = "hola";
if ($texto =~ /la/)
{
print "El patron 'la' ha sido encontrado en $texto";
}
else
{
print "El patron 'la' no ha sido encontrado en $texto";
}

Operadores lógicos

Signo	Acción
&&	AND
||	OR
!	NOT

Ejemplo:

my $numero1 = 2;
my $numero2 = 4;

#AND
if ($numero1 eq 2 && $numero2 eq 4)
{
print "Ejercicio AND ... Los numeros coinciden \n";
}
else
{
print "Ejercicio AND ... Los numeros no coinciden \n";
}

#OR
if ($numero1 == 2 || $numero2 == 20)
{
print "Ejercicio OR ... se encontro al menos una igualdad \n";
}
else
{
print "Ejercicio OR ... no se encontro igualdad \n";
}

#NOT 
if (!($numero1 > $numero2))
{
print "El $numero1 no es mayor que el $numero2 \n";
}
else
{
print "El $numero1 es mayor que el $numero2 \n";
}

Operador de selección

Este es un operador triario que permite hacer una cosa u otra dependiendo de la condición dada, se puede describir como el equivalente a una condicional simple con las sentencias if else, sintaxis -> condicion ? accion1 : accion2

Ejemplo:

my $numero1 = 1;
my $numero2 = 2;
$numero1>$numero2 ? print "$numero1 Es mayor" : print "$numerador1 Es menor";

Símbolos de puntuación

Los símbolos de puntuación también son considerados como operadores en Perl ...

• Comillas simples '' - no hace sustituciones
• Comillas dobles "" - si hace sustituciones
• Delimitación para expresiones regulares //

Ejemplo:

$variable = 1000;
print "Comillas dobles: $variable \n";
print 'Comillas simples: $variable \n';

Con las comillas dobles $variable es sustituido por su valor, es decir 1000, con comillas simples no es tomado en cuenta el valor.