lunes, 9 de septiembre de 2013

OPERADORES EN PERL



Operadores aritméticos

SignoAcción
+Sumas
-Restas
*Multiplicación
**Exponenciación
/División
%Resto
.Concatenación de cadenas de texto
xRepetició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 relacionalNuméricoCadena 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 ...

SignoAcció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

SignoAcció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.