elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [TUTORIAL] Perl
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [TUTORIAL] Perl  (Leído 1,444 veces)
fary
Moderador Global
***
Desconectado Desconectado

Mensajes: 1.021



Ver Perfil WWW
[TUTORIAL] Perl
« en: 6 Febrero 2014, 11:23 am »

Debido a lo poco que se ve Perl en la sección me he decidido a escribir una pequeña introducción, ya que pienso que casi no se trata este lenguaje en esta sección, y es un lenguaje muy potente y flexible.

¿Como instalar el interprete de Perl?

Lo podemos descargar de aquí:

http://www.perl.org/get.html

Para Windows disponemos de dos interpretes ActiveState y StrawBerry. Personalmente uso ActiveState pero esto como todo, va por gustos.

Nota: En sistemas Linux esta instalado por defecto, así que no lo tendrás que instalar.

¿Ya  tengo instalado el interprete pero... Como ejecuto mis scripts?

En primer lugar todos los scripts en Perl tienen que tener la extensión .pl. Para ejecutarlo es tan facil como hacer doble clic sobre el script o bien desde la linea de comandos:

perl miscript.pl

Para probar podéis crear este pequeño script con el famoso mensaje "Hola Mundo!"

Código
  1. #!/usr/bin/perl
  2. print "Hola Mundo!"; # Imprimimos en pantalla el saludo
  3.  

Aclaraciones rápidas sobre el script de arriba:

-Todas las lineas de código acaban con el punto y coma (';').
-Los comentarios se escriben con la almohadilla ('#')
-La linea 1 indica la ruta del interprete (En principio esto es solo necesario para sistemas Linux).

Dicho esto, ¡empecemos!.

Variables

Las variables se declaran con my y tienen que tener delante del nombre el símbolo del dolar ('$'). Además en este lenguaje no hay tipos de variables, es decir, se declara igual una variable que contiene un número que una que tiene una cadena.

Ejemplos de declaraciones de variables:

Código
  1. #!/usr/bin/perl
  2.  
  3. my $cadena = "hola soy una cadena\n";
  4. my $numero = 1;
  5.  
  6. my $n1 = 2;
  7. my $n2 = 3;
  8.  
  9. print $cadena;
  10.  
  11. print $n1 + $n2 . "\n"; # suma e imprime los valores de las variables
  12. print $n1 . $n2 . "\n"; # Concatena los numeros (Los tata como cadena)
  13. print "$n1$n2\n";  # Otra forma de hacer lo de la linea de arriba
  14.  
  15.  

Algunos datos del código de arriba:

-En las lineas 3,11,12 y 13 vemos los caracteres '\n', dichos caracteres indican salto de linea.
-El operador punto (".") concatena cadenas (Si, el interprete se ha encargado de pasar el número a cadena antes de unirlo).
-La linea 12 hace exactamente lo mismo que la linea 13.
-exit termina la ejecución del script (Esto no es necesario ponerlo, pero es bueno saberlo.)


Arrays

Los arrays también se declaran con my, pero en vez de usar el dolar, se usa el arroba ('@').

Ejemplo de declaración de un array:

Código
  1. #!/usr/bin/perl
  2.  
  3. my @array; # array sin inicializar
  4. my @animales = ('Gato','Perro','Pez'); # array inicializado
  5.  
  6. print "$animales[0]\n"; #imprimimos el primer elemento del array 'Gato'
  7. print "$animales[1]\n"; #imprimimos el segundo elemento del array 'Perro'

Aclaraciones:

-El primer elemento de un array es el 0, no el no como podemos comprobar en la linea 6.
-Para acceder a los elementos se usa el simbolo del dolar ($animales[0]).

En Perl existen funciones como push o pop, para manejar los arrays.

push introduce elementos al array y pop los saca, ejemplo:


Código
  1. #!/usr/bin/perl
  2. my @animales = ('Gato','Perro','Pez'); # array inicializado
  3.  
  4. print "El ultimo animal de la lista es el: $animales[2]\n";
  5.  
  6. push @animales,"Foca";
  7.  
  8. print "Ahora el ultimo animal es: $animales[3]\n";
  9.  
  10. pop @animales;
  11. pop @animales;
  12.  
  13. print "Ahora el animal $animales[3] no esta\n";
  14. print "El ultimo animal ahora es: $animales[1]\n";
  15.  

Hay muchas mas funciones, podemos encontrar algunas más explicadas aquí

Operadores aritméticos

Esto suele variar poco de un lenguaje de programación a otro.

Suma: +
Resta: -
Multiplicación: *
División: /
Potencia: **
Residuo de una operación: %

Perl, puede convertir número a cadena y viceversa, ejemplo:

Código
  1. #!/usr/bin/perl
  2. my $n1 = 5;
  3. my $n2 = 3;
  4.  
  5. my $c1 = '5';
  6. my $c2 = '5';
  7.  
  8. print "Trata los numeros como cadena: $n1$n2\n"; # devolvera 85
  9. print $c1 + $c2 . "\n"; # devolvera 10

También existen, al igual que en C y C++ los operadores de incremento y decremento:

Código
  1. my $var = 1;
  2. $var++; # Incremento en uno el valor de la variable
  3. print $var . "\n";
  4. $var--;   # Decremento en uno de valor de la variable
  5. print $var . "\n";

Operadores Lógicos

and: &&
or: ||
not: !

Estos operadores se usan casi siempre como complemento de la sentencia if, pero en ese lenguaje tienen otros usos como por ejemplo indicar errores:

Código
  1. open(FILE,"archivo.txt") || die("No se puedo abrir el archivo");

En este caso si no abre el archivo muestra el mensaje de error.

if

Esta sentencia nos sirve para controlar el flujo del programa, ej:

Código
  1. #!/usr/bin/perl
  2.  
  3. my $var = 1;
  4.  
  5. if ($var == 1) # sentencia if
  6. {
  7.    # si $var es igual a uno se ejecuta lo que esta aqui
  8. print "\$var es igual a 1\n";
  9. }else{
  10.    # si no es igual a uno se ejecuta esto
  11. print "\$var NO tiene valor 1\n";
  12. }
  13.  
  14. system("PAUSE"); # con system enviamos comandos al sistema

En las lineas 8 y 11 aparece un '\' delante de $var, ese símbolo es de escape, si no estuviera nos motraría el valor de la variable:

Código
  1. #!/usr/bin/perl
  2.  
  3. my $var = 1;
  4.  
  5. print "$var\n";
  6. print "\$var\n";
  7.  
  8. system("PAUSE");

Con la función system enviamos un comando al sistema, en este caso (para Windows) realiza una pausa, si no pusiéramos la línea system("PAUSE") al ejecutarse el programa la consola desaparecería.

También podemos realizar comparaciones de esta manera:

Código
  1. if (Comparacion) # se realiza la comparacion
  2. {
  3. }elsif (comparacion) # si no se cumple la de arriba se vuelve a ralizar otra comparacion
  4. {
  5. }elsif (Comparacion)  # Si no se cumple la de arriba de vuelve a realizar otra comparacion
  6. {
  7. }else{ # Si no se cumple ninguna de las anteriores se ejecuta esta
  8.  
  9. }

Ejemplo práctico:

Código
  1. #!/usr/bin/perl
  2.  
  3. my $var = 1;
  4.  
  5. if ($var == 2) # se realiza la comparacion
  6. {
  7. print "Es igual a 2\n";
  8. }elsif ($var == 3) # si no se cumple la de arriba se vuelve a ralizar otra comparacion
  9. {
  10. print "Es igual a 2\n";
  11. }elsif ($var == 3)  # Si no se cumple la de arriba de vuelve a realizar otra comparacion
  12. {
  13. print "Es igual a 2\n";
  14. }else{ # Si no se cumple ninguna de las anteriores se ejecuta esta
  15.    print "No es igual a ninguna de las anteriores\n";
  16. }
  17.  
  18. system("PAUSE");

Ahora vamos a ver los operadores de los que disponemos para realizar dichas comparaciones:


Tipo              Númerico   Cadena
Mayor A            >               gt
Menor A             <              lt
Igual A            ==              eq
No Igual A            !=            ne
Menor o Igual A     <=           le
Mayor o Igual A     >=          ge


No podemos comparar una cadena con el equivalente numerico ni viceversa, ej:

Código
  1. my $c1  = "hola";
  2. my $c2  = "adios";
  3.  
  4. my $n1 = 1;
  5. my $n2 = 2;
  6.  
  7. if ($c1 eq $c2) # sentencia CORRECTA
  8. {
  9.    # Si son iguales de ejecuta
  10. }
  11.  
  12. if ($c1 == $c2) # sentencia ERRONEA
  13. {
  14.    # Si son iguales de ejecuta
  15. }
  16.  
  17. if ($n1 eq $n2) # sentencia ERRONEA
  18. {
  19.    # Si son iguales de ejecuta
  20. }
  21.  
  22. if ($n1 == $n2) # sentencia CORRECTA
  23. {
  24.    # Si son iguales de ejecuta
  25. }

for

Los bucles for se pueden usar como en C:

Código
  1. for (my $i = 0; $i<10; $i++) # se repite 10 veces
  2. {
  3.     print "$i \n";
  4. }

O de esta manera, mas característica de este lenguaje:

Código
  1. for my $i (1..10) # Se repite 10 veces
  2. {
  3.    print "$i\n";
  4. }

while

Este bucle se repite hasta que la sentencia sea falsa, de tal manera que esto:

Código
  1. while (1)
  2. {
  3.    print "while!\n";
  4. }

Sería un bucle infinito.

Otro ejemplo que suma tres números:

Código
  1. my $i = 0;
  2. my $num = 0;
  3.  
  4. while ($i<3)
  5. {
  6.    $num = $num + <STDIN>;
  7.    #$num += <STDIN>; # esta linea hace exáctamente lo mismo que lo de arriba.    
  8.    $i++;
  9. }
  10.  
  11. print "Suma totalde los numeros: $num\n";

<STDIN>
lo que hace es leer datos de entrada.


« Última modificación: 14 Diciembre 2014, 23:38 pm por mDrinky » En línea

Un byte a la izquierda.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Web desing and Perl tutorial books
Sugerencias y dudas sobre el Foro
vadon 0 2,115 Último mensaje 27 Diciembre 2004, 06:42 am
por vadon
Tutorial Perl desde cero « 1 2 »
Scripting
WHK 11 12,192 Último mensaje 26 Diciembre 2007, 14:40 pm
por Axus
Tutorial Perl/Tk. « 1 2 »
Scripting
^Tifa^ 11 7,608 Último mensaje 21 Enero 2009, 19:14 pm
por ^Tifa^
Libros de Perl online [PERL]
Scripting
madpitbull_99 0 3,243 Último mensaje 18 Mayo 2011, 21:49 pm
por madpitbull_99
[Perl] Creacion de un Joiner en Perl
Scripting
BigBear 0 2,243 Último mensaje 15 Marzo 2013, 16:12 pm
por BigBear
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines