ÍndiceÍndice  PortalPortal  CalendarioCalendario  FAQFAQ  BuscarBuscar  RegistrarseRegistrarse  MiembrosMiembros  Grupos de UsuariosGrupos de Usuarios  Conectarse  

Comparte | 
 

 Tutorial Basico de Perl - Parte 2

Ir abajo 
AutorMensaje
[Somnophore]
.:Moderador Del Mal:.
.:Moderador Del Mal:.
avatar

Masculino Cantidad de envíos : 131
Edad : 31
Fecha de inscripción : 06/08/2007

MensajeTema: Tutorial Basico de Perl - Parte 2   Miér Ago 15, 2007 8:47 pm


OPERADORES DE PERL



Los operadores son instrucciones que se le da a la computadora para efectuar sobre operandos. Los operandos pueden ser desde números hasta palabras.

Perl es uno de los lenguajes que existen con más operadores, y aquí vamos a enlistar todos los que tiene. Podrás ver que los operadores son bastante intuitivos, antes de que se dé la explicación podrás saber la función que realiza el operador.

Operadores Aritméticos

Son los operadores más comúnes e incluyen suma, resta, multiplicación, exponenciación, división y módulo.

Código:
 op1 + op2 Suma
op1 - op2 Resta
op1 * op2 Multiplicación
op1 ** op2 Exponenciación
op1 / op2 División
op1 % op2 Módulo

Todos los operadores aritméticos son bastante intuitivos y no vale la pena profundizar sobre ello, quizá solamente destacar que el operador de módulo retornará el residuo de un división. Por ejemplo en la operación 9%7 el resultado será 2, ya que 9/7 es igual a 1 con residuo de 2.

Veamos unos ejemplos prácticos del uso de estos operadores:
Código:
 my $a = 10;
my $b = 15;

my $c = $b - $a; #$c tiene valor de 5

my $d = $a * $b;

Dentro del ejemplo, podrán ver que en la línea 3 hay un texto que viene en verde. Simplemente les comento que eso es un comentario.

Un comentario es un texto al cual perl no le dá importancia y lo ignora por completo. Todos los comentarios de Perl inician con el símbolo de número o gato #.

Operadores Aritméticos Unitarios

Los operadores unitarios actúan sobre un solo operando y básicamente se usan para cambiar el signo de un valor, incrementar el valor o disminuir el valor.

Código:
 +op1 Convierte el operando a positivo
-op1 Convierte el operando en negativo

++op1 Pre-incremento del operando en uno
--op Pre-disminución del operando en uno

op1++ Post-incremento del operando en uno
op1-- Post-decremento del operando en uno

Si vemos la tabla podremos apreciar que hay pre-operaciones y post-operaciones, ambas realizan los mismo, incrementar o disminuir en una unidad el valor del operando, sin embargo el momento en que lo realizan es diferente.

Las pre-operaciones primero cambian el valor del operando y después lo retornan, por ejemplo:

Código:
 my $var = 10;

my $var1 = $var++;

En éste caso al terminar de ejecutar tendremos a $var con un valor de 11 y a $var1 con un valor de 10. Esto es porque debido a que usamos el post-incremento, primero se asigna el valor a $var1 y después se realiza el incremento de $var.

Si usaramos el pre-incremento, ambas variables terminarían con lo mismo valor.

Operadores Lógicos

Los operadores lógicos normalmente los vamos a usar siempre que querramos controlar el flujo de nuestro programa, más adelante que veamos los Enunciados de Control veremos como.
Código:
 op1 && op2 Operación AND
op1 || op2 Operación OR
!op1 Operación NOT

En sí es sencillo comprender que es un operador lógico, el programa va a realizar una desición en base a dos operandos cuya condición puede retornar verdadero o falso.

Si en algún momento hemos tomado la materia de lógica en la escuela se nos será muy fácil comprender estos operadores. A continuación viene una tabla de resultados de los operadores, en la prímera columna viene el valor del operando1, en la segunda columna del operando2, y en la tercera y última columna el resultado en Verdadero o Falso.

Código:
 RESULTADO &&
OP1 OP2 OP1 && OP2
0 0 0
1 0 0
0 1 0
1 1 1


RESULTADO ||
OP1 OP2 OP1 || OP2
0 0 0
1 0 1
0 1 1
1 1 1


RESULTADO !
OP1 !OP1
0 1
1 0

Operadores a Nível bit

A continuación viene el listado de cada operador junto con su breve descripción. Cabe destactar que estos operadores solamente funcionan con BITS.

op1 & op2

Este operador AND compara dos bits y retorna un resultado de 1 si ambos bits son 1, de lo contrario regresa 0.

op1 | op2

El operador OR compara dos bits y retorna un resultado de 1 si los bits son complementarios, de lo contrario regresa 0.

op1 ^ op2
El operador OR EXCLUSIVO compara dos bits y retorna un resultado de 1 si alguno o ambos bits son 1, de lo contrario retorna 0.

-op1
Este operador se usa para invertir todos los bits del operando.

op1 >> op2
El operador de DESPLAZAMIENTO A LA DERECHA mueve todos los bits a la derecha, se deshace del bit de la extrema derecha y asigna 0 al bit de la extrema izquierda, esto hace que cada movimiento divida a op1 a la mitad.

op1 << op2
El operador de DESPLAZAMIENTO A LA IZQUIERDA mueve todos los bits a la izquierda, se deshace del bit de la extrema izquierda y asigna 0 al bit de la extrema derecha, esto hace que cada movimiento multiplique a op1 en 2.

Operadores Relacionales Numéricos

Estos operadores se usan para verificar la relación que hay entre dos operadores númericos. Ya sea igualdad, mayor o menor, etc op1 == op2
Este operador retornará verdadero si ambos operadores son verdaderos. Por ejemplo, lo siguiente es verdadero: 7 == 7

op1 != op2
La contraparte del operador anterior, esto regresará verdadero si los operadores no son iguales. Por ejemplo, lo siguiente retornará verdadero: 6 != 7

op1 < op2
El operador retornará verdadero si op1 es menor a op2. Por ejemplo 2 < 6 es verdadero.

op1 <= op2
El operador retornará verdadero si op1 es menor o igual a op2. Por ejemplo 4 <= 4 y 4 <= 5 son verdaderos.

op1 > op2
El operador retornará verdadero si op1 es mayor a op2. Por ejemplo 6 > 5 es verdadero.

op1 >= op2
El operador retornará verdadero si op1 es mayor o igual a op2. Por ejemplo 8 >= 8 y 8 >= 4 son verdaderos.

op1 <==> op2
Este operador es algo diferente pues en vez de dos posible retornos, tiene 3. El operador retorna 1 si op1 es mayor a op2, 0 si op1 es igual a op2, y -1 si op1 es menor a op2.

Operadores Relacionales de Cadena

Estos operadores se usan para verificar la relación entre dos operandos de cadena, los operandos de cadena se consideran aquellos que NO son númericos. op1 eq op2
El operador retornará verdadero si op1 es igual a op2. Por ejemplo "c" eq "c" es verdadero.

op1 ne op2
El operador retonará verdadero si op1 no es igual a op2. Por ejemplo "a" ne "b" es verdadero.

op1 lt op2
El operador retornará verdadero si op1 es menor a op2. Por ejemplo "a" lt "b" es verdadero.

op1 le op2
El operador retornará verdadero si op1 es menor o igual a op2. Por ejemplo "a" le "b" y "a" le "a" son verdaderos.

op1 gt op2
El operador retornará verdadero si op1 es mayor a op2. Por ejemplo "z" gt "a" es verdadero.

op1 ge op2
El operador retornará verdadero si op1 es mayor o igual a op2. Por ejemplo "z" ge "y" y "z" ge "z" son verdaderos.

op1 cmp op2
El operador tiene tres posible retornos. 1 si op1 es mayor a op2, 0 si op1 es igual a op2 y -1 si op1 es menor a op2.

Operador Ternario

El operador ternario es sumamente útil en Perl y realmente es una secuencia de operadores, su sintáxis es como sigue:

Código:
CONDICION ? PARTE-VERDADERA : PARTE-FALSA

Lo que te permite el operador es evaluar la CONDICION y dependiendo de si es verdadera o falsa se regresará la parte que corresponda. Esto se podrá comprender más con un ejemplo

Código:
my $num = 10;
my $var1 = ($num > 5) ? "Mayor" : "Menor";

Lo que estamos haciendo es realizando una asignación a la variable $var1 dependiendo de la condición. En este caso la condición es ($num > 5), si esto resulta verdadero, la palabra Mayor se asignará a la variable, de lo contrario será la palabra Menor.
Este operador se podrá comprender más a fondo cuando veamos los enunciados de control en la siguiente parte del tutorial.

Operador de Rango (..)

El operador de rango nos resulta sumamente útil cuando queremos crear arrays con valores contiguos. Por ejemplo, dígamos que queremos crear un array con los números del 1 al 10, uno estaría tentado a hacerlo de la siguiente manera:
Código:
my @array = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);

NOTA: Vemos como no usamos comillas para los valores en este caso debido a que los elementos son números NO cadenas de texto

Esto resulta sumamente impráctico, y más si queremos asignar mucho más números. Pero esto es posible comprimirlo usando el operador de rango:

Código:
my @array = (1..10);
Ahora tendremos nuestro array con la lista de números del 1 al 10.
Pero aparte el operador es inteligente, entonces si hacemos algo así:
Código:
my @array = (01..10);
Nuestro array contendrá correctamente los valores 01,02,03,04,05,06,07,08,09,10.
Ahora veamos que pasa si usamos letras:
Código:
my @array = ('a'..'e');
El resultado es justo como lo queremos a,b,c,d,e.
Pongamos ahora en prueba a Perl, ¿te puedes imaginar los valores que resultarían de lo siguiente?:
Código:
my @array = ('aa'..'af');
Los valores serían aa,ab,ac,ad,ae,af.

Operador de Concatenación
Muchas veces no queremos sumar ni restar, o realizar ninguna operación entre dos operandos, sino que queremos "pegarlos''. Para eso tenemos el operador de concatenación.

Este operador es un simple punto . y funciona de la siguiente manera:
Código:
 my $saludo = "Hola me llamo ";
my $nombre = "Uriel";

my $frase = $saludo . $nombre;
Como resultado nuestra variable $frase tendrá el valor "Hola me llamo Uriel". Pero, que pasa si combinamos números con cadenas:
Código:
my $edad = "Tengo " . 21 . " años".
Como resultado en la variable $edad tendremos el valor "Tengo 21 años", pues Perl realiza la conversión del número 21 a una cadena detrás de las cortinas de manera automática.

Operador de Repetición
Este operador lo usamos para duplicar una cadena n número de veces. El operador se define con una x, por ejemplo:
Código:
my $var = "A" x 6;
Esto genera el valor AAAAAA

Operadores de Asignación
A través de todo el tutorial hemos estado usando el operador de asignación básico =. Ahora veremos que hay más maneras de asignar un valor a una variable.

Por ejemplo, dígamos que tenemos algo así:
Código:
 my $var = 1;
my $num = 20;

$var = $var + $num;
Al final obtendremos el valor 21 en nuestra variable $var, pero esto se ve demasiado repetitivo y tedioso, y pues como siempre, Perl tiene una manera más simple de realizar las cosas, pues esto lo podríamos lograr más sencillamente usando alguno de los operadores de asignación.
Código:
$var += $num;
Vemos como estamos usando un diferente operador de asignación +=. Este operador lo que hace es sumar el valor de la derecha a nuestra variable de la izquierda.
Hechemos una vistazo a otro ejemplo para entender un poco más. Lo más seguro es que sepas el valor final de nuestra variable con solo verlo, pues Perl es muy intuitivo:
Código:
my $num = 5;

$num -= 4;
¿Puedes suponer que valor tendrá $num?
Si dijiste 1 estás en lo correcto.

Aquí está la lista de todos los operadores de asignación disponibles:
Código:
 var = op1;
var += op1;
var -= op1;
var *= op1;
var /= op1;
var %= op1;
var .= op1;
var **= op1;
var x= op1;
var <<= op1;
var >>= op1;
var &= op1;
var |= op1;
var ^= op1;
Orden de Precedencia

Muchas veces nos encontraremos usando varios operadores en una misma expresión.
Código:
my $var = 10 + 5 * 4 / 2;
Si esto sucede, ¿qué operadores se ejecutan primero? Para esto Perl tiene un orden de precedencia, es un orden establecido en donde podemos ver que operadores se ejecutan primero y cuales al final. Es sumamente importante que tengamos siempre presente esto o si no nos encontraremos con resultados innesperados.
Aquí va una tabla con los operadores más usados ordenados por precedencia:
Código:
 (), [], {} LLamadas a funciones, paréntesis
++,-- Incremento y decremento
** Exponenciación
*,/,%,x Multiplicación,división,módulo,repetición
+,-,. Suma, resta, concatenación de cadena
&& AND lógico
|| OR lógico
.. Operador de rango
= Operadores de asignación
Cabe destacar que la tabla para nada está completa, faltan muchos operadores, los cuales se podrán ver en la documentación de Perl. Simplemente se enlistaron los más comúnes.

Viendo la tabla ¿te podrías imaginar el resultado de la siguiente operación?:
Código:
my $num = 10 + 4 / 2;
Si dijiste que 7 estás incorrecto, el resultado será 12. La razón de esto es que si vemos la tabla de precedencia podremos ver que la división tiene más precedencia que la suma, por lo que la primera operación que se realiza es es 4/2, por lo que después se realiza 10+2.
Pero ¿qué pasa si queremos que se ejecute la suma primero? Para eso nos sirven los paréntesis que tienen la mayor precedencia:
Código:
my $num = (10 + 4) / 2;
Ahora sí, como los paréntesis ocupan el primer lugar de precedencia lo primero que se ejecuta es 10+4 y después 14/7.
Realmente es sencillo, solamente hay que recordar en todo momento los níveles de precedencia, y SIEMPRE que haya alguna duda, usa los paréntesis.

Así finalizamos con los operadores.

Podrán pensar que es demasiada información, pero como dije al principio, son bastante intuitivos, se terminarán acostumbrando a ellos, pues junto con las variables, esto es lo más básico de Perl.


Así termina la primera sesión del tutorial Perl Básico.



Spoiler:
 

_________________







"El ignorante afirma, el sabio duda y reflexiona"
Volver arriba Ir abajo
Ver perfil de usuario http://www.iaedelmal3.blogspot.com
 
Tutorial Basico de Perl - Parte 2
Volver arriba 
Página 1 de 1.
 Temas similares
-
» CATA OCTAVA (Parte II)
» Tutorial para hacer videos
» Tutorial para el uso del editor de imagen Picmonkey
» El cordobes video tutorial
» VENDO PARTE DE MI COLECCIÓN DE DISCOS

Permisos de este foro:No puedes responder a temas en este foro.
 :: Programacion :: Perl-
Cambiar a: